Генератор разбиения числа

Program n1; 
 Uses Crt;
 Var x,n,a,b,c,d,e,f,g,h,b1,c1,d1,f1,g1,r,k:integer;
BEGIN
 
 Write (' vedit N ');
 ReadLn (n);
 Write ( 'Vvedit k ' );
 ReadLn (k);
 for x:=1 to k do begin
 b1:=x mod 1000000;
 c1:=b1 mod 100000;
 d1:=c1 mod 10000;
 f1:=d1 mod 1000;
 g1:=f1 mod 100;
 a:=x div 1000000;
 b:=b1 div 100000;
 c:=c1 div 10000;
 d:=d1 div 1000;
 e:=f1 div 100;
 f:=g1 div 10; 
 g:=g1 mod 10;
 
if a+b+c+d+f+g+h=n then
 begin if a<>0 then
 begin if a<=b then
 begin if b<=c then
 begin if c<=d then
  begin if d<=e then
  begin if e<=f then
 begin if f<=g then
 
 
 WriteLn (a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g);
 
end;
end;
end;
end;
end;
end;
end;
end;
     ReadKey;
end.

var n,k:longint;
    a:array[1..10000] of longint;
 
procedure rec(x,p,v:longint);
var i:longint;
begin
 
    if ((x<>0) and (v<=k)) or ((x=0) and (v>k)) then begin
        if (x=0)and(v>k) then begin
            for i:=1 to k do 
                write(a[i],' ');
            writeln;
        end
        else
        for i:=p to n do begin
            a[v]:=i;
            rec(x-i,i,v+1);
        end;
    end;
    
end;
 
begin
 
    readln(n,k);
    rec(n,1,1);
 
end.

uses crt;
var
  q : integer;
  n : integer;
 
  arr : array[1 .. 10] of integer;
 
procedure p(start, count : integer);
var i, s : integer;
begin
  if count > q then
  begin
    s := 0;
    for i := 1 to q do s := s + arr[i];
    if s = n then
    begin
      for i := 1 to q do write(arr[i]:3);
      writeln;
    end;
  end
  else
  begin
    for i := start  to n do
    begin
      arr[count] := i;
      p(arr[count], count + 1);
    end;
  end;
end;
 
begin
write('n=');readln(n);
write('q=');readln(q);
p(1, 1);
end.