вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m

[Sparky]

Ребята помогите
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m
вот код:

program ex;
var n,m,k,i,h,j:integer;
begin
  repeat
     write('Vvedite 2 naturalnix chisla: ');
     readln(n,m);
  until (n>0) and (m>0);
  h:=0;
  for i:=1 to n-1 do
   begin
        j:=i;
       while j>0 do
             begin
               k:=j mod 10;
               j:=j div 10;
               h:=h+k;
             end;
      if h*h=m then
  writeln(h);
  end;
  readln;
end.

Что не так???

[Chudo4258]

program ex;
var n,m,k,i,h,j:integer;
begin
  repeat
     write('Vvedite 2 naturalnix chisla: ');
     readln(n,m);
  until (n>0) and (m>0);
  h:=0;
  for i:=1 to n-1 do
   begin
        j:=i;
        h:=0;
       while j<>0 do
             begin
               k:=j mod 10;
               j:=j div 10;
               h:=h+k;
             end;
      if h*h=m then
  writeln(h);
  end;
  readln;
end.

[dr.Chas]

var n,m,k,i,h,j:integer;
begin
  repeat
     write('Vvedite 2 naturalnix chisla: ');
     readln(n,m);
  until (n>0) and (m>0);

  for i:=10 to n-1 do
  begin
      j:=i;  h:=0;
      while j>0 do
      begin
        k:=j mod 10;
        j:=j div 10;
        h:=h+k;
      end;
      if (h*h=m) then
      writeln(i);
  end;
  readln;
end.