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

uses crt;
var
   n,i,m:longint;
   x:longint;
function scc(c:longint):integer;
var
   s:integer;
begin
     s:=0;
     while c<>0 do
           begin
                s:=s+sqr((c mod 10));
                c:=c div 10;
           end;
     scc:=s;
end;
begin
    clrscr;
  readln(n,m);
  x:=1;
  for i:=2 to n do
      x:=x*10;
  for i:=x to x*10-1 do
     if scc(i) mod m = 0 then
        write(i,' ');
  writeln;
     readln;
end.