Для заданного N напечатать все подмножества множества

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type combination= array[byte] of byte;
var n,i,m,q:integer;
x: combination;
  a:array[1..100]of integer;
 
function next: boolean;
var i: byte;
begin
i:=n;
 
while (i>0) and (x[i]=m)do
begin
dec(i);
end;
if (i=0) or (i=n-1) then next:=false
else begin
x[i]:=x[i]+1;
next:=true;
end;
end;
 
procedure print;
var i:integer;
next: boolean;
begin
for i:=1 to n do
begin
 
write(x[i]);
end;
inc(q);
writeln;
end;
 
begin
write('m-');
readln(m);
writeln ('0');
for n:=1 to m do begin
for  i:=1 to n do x[i]:=i;
repeat print until not next;
end;
writeln('q-',q+1);
readln;
end.

uses crt;
var
 n,i:integer;
 a:array [0..10] of integer;
procedure next_pdm; 
begin 
i:=n;
while a[i]=1 do 
   begin 
     a[i]:=0;
     dec(i);
   end;
inc(a[i]); 
end; 
procedure print_pdm;
begin
for i:=1 to n do
if a[i]=1 then write(i,' ');
writeln;
end;
begin 
clrscr;
write('n=');
readln(n); 
for i:=1 to n do
a[i]:=0;
a[n]:=1; 
while a[0]=0 do
  begin 
    print_pdm; 
    next_pdm;
  end;
readln
end.