Помогите плииз ...

Написать программу которая выводит на экран все подмножества множества:{1,2,3,4}

var

a, b, c, d : integer;

Begin

for a:=1 to 4 do

for b:=a+1 to 4 do

for c:=b+1 to 4 do

for d:=c+1 to 4 do

writeln (a:3, b:3, c:3, d:3) ;

for a:=1 to 4 do

for b:=a+1 to 4 do

for c:=b+1 to 4 do

writeln (a:3, b:3, c:3) ;

for a:=1 to 4 do

for b:=a+1 to 4 do

writeln (a:3, b:3) ;

for a:=1 to 4 do

writeln (a:3) ;

readln;

End.