Представить число в виде суммы натуральных чисел - Pascal

uses crt;
type arr=array[1..40]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);
    Recursion(1,1,0,n,a);
    readkey;        
end.