（选排列）下面程序的功能是利用递归方法生成从1到n(n10

Program ex501;
Var
  i, n, k : integer;
  a : array[1..10] of integer;
  count : longint;
Procedure perm2(j : integer);
var
  i, p, t : integer;
begin
  if （ 1 ） then
  begin
    for i:=k to n do
    begin
      inc(count);
      t := a[k];
      a[k] := a[i];
      a[i] := t;
      for  （ 2）     do write(a[p]: 1);
      write(' ');
      t := a[k];
      a[k] := a[i];
      a[i] := t;
      if (count mod 5 = 0) then writeln;
    end;
    exit;
  end;
  for i:=j to n do
  begin
    t := a[j];
    a[j] := a[i];
    a[i] := t;
    3
    t:=a[j];
    4
  end
end;
begin
  writeln('Entry n,k (k<=n):');
  read(n, k);
  count := 0;
  for i:=1 to n do a[i] := i;
  5
end.