用递归的算法列出组合的合部情形

Question

 在数组A 中有如下元素 ［13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ］共15个元素，求从中抽任取7个不同的元素组合 将结果放入动态数组B中 用递归算法如何实现@ 
const
N:= 7;var 
M:integer;
Nums:integer;
M:= high(A);Function Getc(M, N: integer): integer; //此函数求出从M中选N的组合个数 
var
  i: integer;
begin
  Result := M;
  for i := 2 to N do
    begin
      Result := Result * (M - i + 1);
      Result := Result div i;
    end;
end;Nums:= Getc(m,n);
SetLength(B, Nums);//确定动态数组B的大小