Разбиение

const  max = 10;
type mas = array [1..max] of integer;
var a: mas;
procedure Find(var a:mas;l:integer;n,m:integer);
var i:integer;
begin
 if n=0 then
   begin
    for i:=1 to l do
    write(a[i],' ');
    writeLn;
   end
  else
    if m>n then m:=n;
    for i:=m downto 1 do
     begin
      a[l+1]:=i;
      Find(a,l+1,n-i,i);
    end;
end;
 
 
 
var n:integer;
begin
  repeat
  write('Введите число до ',max,' n=');
  read(n);
  until n in [1..max];
  Find(a,0,n,n)
end.

const  max = 10;
type mas = array [1..max+1] of integer;//+1, иначе в строке
                                        //a[l+1]:=i выход за границы при n=max
var a: mas;
procedure Find(var a:mas;l:integer;n,m:integer;var t:text);
var i:integer;
begin
 if n=0 then
   begin
    for i:=1 to l do
    write(t,a[i],' ');
    writeln(t);
   end
  else
    if m>n then m:=n;
    for i:=m downto 1 do
     begin
      a[l+1]:=i;
      Find(a,l+1,n-i,i,t);
    end;
end;
 
 
 
var f,t:text;
    n:integer;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
assign(t,'output.txt');
rewrite(t);
read(f,n);
close(f);
Find(a,0,n,n,t);
close(t);
end.