По заданным n и k вывести все размещения из n по k

uses crt;
{Размещения из n элем. по k}
const n1=10;
type t=array[1..n1] of integer;
var x,min,max,w:t;
    k,n,i:integer;
{-----------------------------------------}
Procedure output_p(x,w:t; k:integer);
{Процедура вывода элементов перестановки на экран}
var  e:integer;
begin
 for e:=1 to k do write(w[x[e]]:4);
 writeln
end;
{-----------------------------------------}
Procedure generator_transp(x:t;k:integer;var z:integer);
{Генератор перестановок}
var y,i,j,v,l:integer;
begin
 output_p(x,w,k);
 z:=1;
 for i:=1 to k do z:=z*i; {Вычисление числа перестановок}
 y := 1;
 for y := 2 to z do {Цикл по числу перестановок}
 begin
 i := 2; j := 1;
 while x[i - 1] <= x[i] do i := i + 1;
 while x[j] <= x[i] do j := j + 1;
 v := x[i]; x[i] := x[j]; x[j] := v;
 if i = 2 then output_p(x,w,k);
 for l := 1 to (i - 1) div 2 do
 begin
 v := x[l]; x[l] := x[i - l]; x[i - l] := v
 end;
end
end;
{-----------------------------------------}
Procedure gen_comb(x,min,max:t; n,k:integer);
var
 i,j:integer;
 z:longint;
begin
 for j := 1 to k do
 begin
 max[j] := n - j + 1;
 min[j] := k - j + 1;
 x[j] := min[j]
end;
i := 0;
while i <= k do
begin
 generator_transp(x, k, z);
 i := 1;
 while (i <= k) and (x[i] = max[i]) do i:=i+1;
 if i <= k then x[i] := x[i] + 1;
 for j := i - 1 downto 1 do
 begin
 min[j] := x[j + 1] + 1; x[j] := min[j]
end
end
end;
{---------------------------------------------}
begin
write('Введите число элементов массива от 2 до 10 n = ');
readln(n);
writeln('Введите элементы массива, целые числа:');
for i:=1 to n do
 begin
  write('w[',i,']=');
  readln(w[i]);
 end;
write('Введ. число эл. по сколько выбирать k<=',n,' k=');
readln(k);
writeln('Размещения из ', n, ' элементов по ',k,' элементов');
gen_comb(x, min, max, n, k);
end.