Дана последовательность натуральных 3-х значных чисел, за которой следует 0. Составить программу поиска в данной последовательности элемента, сумма цифр которого равна N Делать программу через цикл While

Var
k: array[1..100] of integer;
a,N,i,c:integer;
begin
c:=0;
i:=1;
a:=999;
write(Введите N: );
readln(N);
writeln(Введите a: );
while a0 do beginr
eadln(a);
if (a>=100) and (aif ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begin
k[i]:=a;
i:=i+1;
c:=c+1;
end;
end;
end;
if c>0 then begin
writeln(Числа, сумма цифр которых равна ,N,:);
for i:= 1 to c do
writeln(k[i]);
end;
end.