Дано число N. Найти количество чисел в интервале от 1 до N, делящихся на сумму своих цифр — Pascal(Паскаль)

uses crt;
var n,m,i,k:integer;
    s:byte;
begin
clrscr;
write('n=');
readln(n);
writeln('Числа делятся на сумму своих цифр:');
k:=0;
for i:=1 to n do
 begin
  s:=0;
  m:=i;
  while m>0 do
   begin
    s:=s+ m mod 10;
    m:=m div 10;
   end;
  if i mod s=0 then
   begin
    write(i,' ');
    k:=k+1;
   end;
 end;
writeln;
writeln('Всего чисел=',k);
readln
end.