Pomoc oko zadatka

Code:

const
  MaxN=100;
type
  niz = array[1..MaxN] of integer;
var
  a: niz;
  pam:array[1..200] of niz;
  poz,i,n:integer;

procedure pisiniz(nz: niz;n:integer);
var
   i,j: integer;
   forma:niz;
   nadjen, isti:boolean;
begin
     for i := n+1 to maxn do
         forma[i]:=0;
     for i := 1 to n do
         forma[i]:=nz[i];
     nadjen := false;
     for i := 1 to poz do
         begin
              isti := true;
              for j := 1 to maxn do
                  isti:=isti and (pam[i,j]=forma[j]);
              nadjen := nadjen or isti;
         end;
     if not nadjen then
        begin
             inc(poz);
             for i := 1 to maxn do
                 pam[poz,i]:=forma[i];
             for i :=1 to n do
                 write(nz[i]);
             writeln;
        end;
end;

procedure razvoj(a: niz; duz:integer);
var
   pa:niz;
   i,j:integer;
begin
     for i:= 1 to duz - 1 do
         begin
              for j := 1 to i-1 do
                  pa[j]:= a[j];
              pa[i]:=a[i]+a[i+1];
              for j:= i+2 to duz do
                  pa[j-1]:=a[j];
              pisiniz(pa, duz-1);
              if (duz > 3) and ((i mod 2)=1) then
                 razvoj(pa,duz-1);
         end;
end;

begin
     write('Unesi n = ');
     readln(n);
     for i := 1 to n do
         a[i]:= 1;
     pisiniz(a,n);
     razvoj(a, n);
     poz:=0;
     readln;
end.

Code:


var
  p:array[1..max] of integer;
  i:integer;

procedure ispisi(pos:integer);
var
  i:integer;
begin
  write(p[1]);
  for i:=2 to pos do write('+',p[i]);
  writeln;
end;

procedure part(pos,n:integer)
var
  i:integer;
begin
  if n = 0 then Ispisi(pos)
  else
  begin
    for i:=p[pos] to n do
    begin
      p[pos+1]:=i;
      part(pos+1,n-i);
    end;
  end;
end;

begin
  for i:=1 to broj do
  begin
    p[1]:=i;
    part(1,broj-i);
  end;
  readln;
end.