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

uses crt;
var a:array[100..999] of integer;
i,n:integer;
begin
clrscr;
write('n = ');
readln(n);
writeln(' Vce chicla:');
for i:=100 to 999 do
begin
if (i div 100 + i div 10 mod 10 + i mod 10)=n then
begin
a[i]:=a[i]+i;
write(' ',a[i]:3);
end;
end;
readkey;
end.

PROGRAM Primer; 
var m : Integer; 
n : Integer; 
i,j: Integer; 
k : Integer; 
BEGIN 
    Write('m,n := '); 
    Read(m,n); 
    m:=m-(m DIV n)*n; 
    k:=1; 
    While (k<=n) OR (j<>m) do 
    begin 
        If k=n then j:=m; 
        i:=10*m DIV n; 
        m:=10*m-i*n;
        If k>=n then Write(i); 
        k:=k+1 
    end; 
    WriteLn 
END.