Посреди всех n-значных чисел укажите те,сумма цифр которых одинакова данному числу

Program proga;
var k,i:integer;
n,d1,d:LongInt;
st:string;
begin
d:=0;
k:=0;
n:=0;
d1:=0;
writeln('Введите n-значное число, и число k');
readln(n,k);
str(n,st);
for i:=length(st) downto 1 do begin
val(st[i],d1,d);
d1:=d1+d;
d1:=d1+d1;
writeln(d1);
end;
if(d1=k) or (n=k) then
writeln('Сумма чисел n значного числа = k')
else writeln('Сумма чисел n значного числа не ровна k');
end.