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

uses crt;
var n,m,i:integer;
             
           function sum(x:integer):integer;
           var st:string;
           i,buf,code,s:integer;
begin
str(x,st);
s:=0;
for i:=1 to length (st) do begin
           val (st[i],buf,code);
           s:=s+buf;
           end;
sum:=s;
end;
begin
clrscr;
writeln('vvedite n');
readln(n);
writeln('vvedite m');
readln(m);
for i:=1 to n do
if sqr(sum(i))=m then
writeln(i,' ')
else
writeln('Takih chisel net');
readkey;
end.