Формирование массива, элементами которого являются числа, сумма цифр которых равна K и которые не больше N

function SumDigits(N : Integer) : Integer;
begin
  Result := 0;
  while N > 0 do
    begin
      Result += N mod 10;
      N := N div 10;
    end;
end;
 
var
  K, N : Integer;
  A : array of Integer;
begin
  Write('K N ? '); ReadLn(K, N);
  for var i := 1 to N do
    if SumDigits(i) = K then
      begin
        SetLength(A, Length(A) + 1);
        A[A.Length - 1] := i;
      end;
  if Length(A) = 0 then
    Write('None')
  else
    foreach var i in A do
      Write(i, #32);
  WriteLn;
end.

var
  k,n:integer;
  a:array of integer;
 
function SumDigits(i : integer) : integer;
begin
  if i>0 then result:=i mod 10+SumDigits(i div 10);
end;
 
begin
  write('Введите k,n:');  readln(k,n);
  a:=Range(1,n).Where((i:integer)->SumDigits(i)=k).ToArray;
  a.Println;
end.

if i>0 then result:= i mod 10+SumDigits(i div 10) else result := 0;

uses crt;
 
procedure pr; 
var s,k,su,n,i:integer;
    a:array[1..100] of integer;
label x,y1,y2;
begin
 s:=0;su:=0;i:=1;
 write('Vvedite chislo - ');y1:read(k);
 if k<0 then
 begin
  write('Vvedite polojitelnoe chislo - ');
  goto y1;
 end;
 write('Vvedite N - ');y2:read(n);
 if n<0 then
 begin
  write('Vvedite polojitelnoe N - ');
  goto y2;
 end;
 repeat
x:s:=random(n)+1;
  su:=su+s;
  
  if su>k then 
  begin
   su:=su-s;
   goto x;
  end
  else
  begin
   a[i]:=s;
   write(a[i]:3);
   inc(i);
  end;
 until su=k;
 writeln;
end;
 
begin
randomize;
 pr;
end.