Две задачки Опции

[Dushka]

Учитель по информатике сказал что задачки простые, но для меня они темный лес. Может сможете мне помочь. Заранее благодарна .
1. Найти количество цифр кратных старшей цифре числа
2. В массиве 7*7 расставить строки в порядке возрастания количество четных чисел в их

[Unconnected]

var oldest,c:char;
    oldestv,r:byte;
begin
  r:=1;
  read(oldest);
  oldestv:=ord(oldest)-ord('0');
  repeat
    read©;
    if ((ord©-ord('0')) mod oldestv=0) and (c<>#13) then inc®;
  until (c=#13);
  read©;
  writeln®;
  readln;
end.

У меня показывает..

[Lapp]

var oldest,c:char;
    oldestv,r:byte;
begin
  r:=1;
  read(oldest);
  oldestv:=ord(oldest)-ord('0');
...

Ой, не по нутру мне это.. Препод, может, эту писанину и примет (я б - ни за что!)), но по большому счету - так нельзя..
А если я поставлю пробел перед вводом числа?.. или, если начну его с нуля? или введу в шестнадцатиричной форме, $25 или 0x25? И потом - кто сказал, что число положительное??.. или - что оно целое??? в условии этого нет.. В конце концов, нужно уметь хотя бы остановить программу по ошибке ввода, когда препод попробует "пошутить" и введет буковку - твоя прога прилееееежно все просчитает и выдаст чушь .

Уж либо ты пользуешь стандартный числовой ввод, либо сам обрабатываешь все подобные ситуации. А последнее, мне кажется, в данном контексте - просто абсурд )). Мне кажется, лучше вернуться к первому варианту ввода, но добавить обработку отрицательных и извиниться перед дамой, что ниасилил дробные (в надежде, что она уточнит условие, и они не понадобятся)).