Преобразование рекурсии в итерацию (Delphi/Pascal)

[Stasvan]

Задание:
"Решить задачу двумя способами – с применением рекурсии и без нее.
Создайте процедуру, печатающую все возможные представления натурального числа N в виде суммы других натуральных чисел."

Вот решение через рекурсию:

type arr=array[1..400]of integer;
 
procedure Recursion(i,pos,sum,n:integer;a:arr);
var j,k:integer;
 
begin
  for j:=i to n-1 do
  begin
    a[pos]:=j;
    if sum+j=n then
    begin
      for k:=1 to pos do
        if k>1 then
          write('+',a[k])
        else
          write(a[k]);
        writeln
    end
    else
      if sum+j<n then
        Recursion(j,pos+1,sum+j,n,a);
  end;
end;
 
var n:integer;
    a:arr;
begin
  write('n:');
  readln(n);
  writeln('recursion:');
  Recursion(1,1,0,n,a);
  readln;
end.

Нужна помощь с созданием итерации.

[Serge_Bliznykov]

так не проще?

procedure writesum(rs: string; sum, first: integer; n: integer);
var
  j: integer;
  s1 :string;
begin
   if sum<n then 
     for j:=first to n-1 do begin
        str(j,s1);
        if rs<>'' then s1:='+'+s1;
        writesum(rs+s1, sum+j, j, n)
     end;
    if sum=n then
       writeln(rs);
 end;

 
var n:integer;
begin
  write('n:');
  readln(n);
  writeln('recursion:');
  writesum('',0,1,n);
  readln;
end.

код взят тут и чуть переделан.

[Serge_Bliznykov]

итерационный вариант взят отсюда

const
  PTR = 10;

type
  razbivka = array[0..PTR] of byte;

var
  n, i, z, k: byte;
  x: razbivka;

procedure p(var x: razbivka; var z: byte);
var
  i, j, s: byte;
begin
  i := z - 1;
  s := x[z];
  while (i > 1) and (x[i - 1] <= x[i] ) do
  begin
    s := s + x[i];
    dec(i);
  end;
  inc( x[i] );
  z := i + s - 1;
  for j := i + 1 to z do
    x[j] := 1;
end;

begin
  write('Введите число: ');
  readln(n);
  write(n, ' = ');
  z := n;
  for i := 1 to z do
    x[i] := 1;
  for i := 1 to n do 
  begin
    if i > 1 then write(' + ');
    write( x[i], '' );
  end;
  writeln;
  repeat
    p( x, z );
    inc(k);
    write( n, ' = ' );
    for i := 1 to z do 
    begin
      if i > 1 then write(' + ');
      write( x[i], '' );
    end;
    writeln;
  until z = 1;
end.