Сочетания из n по m Опции

[18192123]

Нужно сгенерировать сочетания из n элементов по m элементов. У меня получилось сгенерировать сочетания из n элементов по 3. Но для произвольного m - не получается. Объясните пожалуста, как поступить.

uses crt;
type
mas=array[1..30] of integer;
var
 i,j,k,n:integer;
 a:mas;
begin
 clrscr;
 writeln('enter n:');
 read(n);
 writeln('Enter matrix:  ');
 for i:=1 to n do
  read(a[i]);
 clrscr;
 for i:=1 to n do
  write(' ', a[i]);
  writeln(' ');
 for i:=1 to n do
  begin
   for j:=i+1 to n do
    begin
     for k:=j+1 to n do
       begin
       writeln(a[i], ' ', a[j], ' ', a[k]);
       end;
     end;
   end;
 readkey;
 end.