Вывести все возможные варианты перестановки чисел из n элементов по m

Program perestanowki;
 uses Crt;
const
 mm=100;
var
 m,i,j,k,n:integer;
 a,p:array[1..mm] of integer;
begin
 write('Введите число эл.для перестановки ');
 readln(m);
 writeln('Введите элементы массива a[1..m]');
 for i:=1 to m do
 begin
 write('Введите ', i, '-й элемент ');
 readln(a[i]);
 p[i]:=i
 end;
 for i:=1 to m do write(a[i], ' ');
 writeln;
 for i:=m-1 downto 1 do
 if p[i] < p[i+1] then
 begin
 n:=p[i];
 for j:=m downto i do
 if n < p[j] then
 begin
 p[i]:=p[j]; p[j]:=n;
 k := 1;
 while i+k < m-k+1 do
 begin
 n:=p[i+k];
 p[i+k]:=p[m+1-k];
 p[m+1-k]:=n;
 k:=k+1
 end;
 j:=i
 end;
 for i:=1 to m do write(a[p[i]]:4);
 writeln
 end
end.

Program Generator_combination;
uses crt;
{Ãåíåðàòîð ñî÷åòàíèé}
const
 n=5; k=3; n1=100;
type
 t=array[1..n1] of integer;
var
 x,min,max : t;
 i,j,r:integer;
 
begin // çàäàþòñÿ íà÷àëüíûå çíà÷åíèÿ max,min,x
for j:=1 to k do
 begin
 max[j]:=n-j+1;
 min[j]:=k-j+1;
 x[j]:=min[j]
 end;
 
writeln('Ñî÷åòàíèÿ èç ',n,' ýë-òîâ ïî ', k, ' ýëåìåíòîâ');
 
while i<=k do
 begin
 for j:=k downto 1 do write(x[j], ' '); writeln;
 r:=r+1; 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;
writeln('Îáùåå ÷èñëî ñî÷åòàíèé ðàâíî r = ', r)
end.