Найти все двузначные числа, сумма квадратов цифр которых кратна числу M, введенному с клавиатуры — Pascal(Паскаль)

var n,s,m,i:integer;
begin
writeln('Введите M');
readln(m);
for i:=10 to 99 do
begin
   n:=i;
   s:=sqr(n mod 10)+sqr(n div 10);
   if s mod m=0 then write(i:3);
end;
readln;
end.