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

[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(c);
    if ((ord(c)-ord('0')) mod oldestv=0) and (c<>#13) then inc(r);
  until (c=#13);
  read(c);
  writeln(r);
  readln;
end.

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