На отрезке [2,n]найти все натуральные числа ,сумма цифр которых при умножении числа на а не изменится — Pascal(Паскаль)

uses crt;

function Summ(n: longint): byte;
var
  s: byte;
  m: longint;
begin
  s := 0;
  m := n;
  while m > 0 do
  begin
    s := s + (m mod 10);
    m := m div 10;
  end;
  Summ := s;
end;

var
  n, a, i, k: longint;

begin
  clrscr;
  repeat
    write('n>1 n=');
    readln(n);
  until n > 1;
  repeat
    write('a>1 a=');
    readln(a);
  until a > 1;
  writeln('Числа от 2 до ', n,
    ' сумма цифр которых не менятся при умножении на ', a);
  k := 0;
  for i := 2 to n do
    if Summ(i) = Summ(i * a) then
    begin
      k := 1;
      writeln(i, ' - ', i * a);
    end;
  if k = 0 then
    write('Таких чисел нет!');
  readln

end.