Перечислить все K элементные подмножества n элементарного множества

const n1=20; {Максимальная размерность множества!}
type vector=array[1..n1] of integer;
var a:vector;
    n,k:integer;
procedure cnk(m,l:integer);
var i:integer;
begin
if m=0 then
 begin
  write('{');
  for i:=1 to k do write(a[i]:4);
  write ('} ');
  writeln;
 end
else
for i:=l to n-m+1 do
  begin
   a[k-m+1]:=a[i];
   cnk(m-1,i+1)
  end ;
end;
var i:integer;
    mn:set of byte;
begin
repeat
 writeln ('Введите 0<K<=N<=',n1);
 readln(n,k);
until(k>0)and(k<=n)and(n<=n1);
writeln('Введите ',n,' разных чисел из диапазона [0..255]');
mn:=[];
for i:=1 to n do
 begin
  repeat
  write('a[',i,']=');
  readln(a[i]);
  until(a[i] in [0..255])and not(a[i] in mn);
  mn:=mn+[a[i]];
 end;
cls;  //очистка экрана
writeln('Исходное множество');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln ('Подмножества из ',n,' по ',k);
cnk(k,1);
end.