Вывод количества перестановок, при перестановках 25 значений массива, программа не считает дальше Опции

[leha_fenchenco@mail.ru]

Program perestanowki;

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.

Как сделать так что б она сохраняла ВСЕ ответы в документ, и не тормозилась на первых 20тыс.
Заранее спасибо. И ещё, по моему у вас сполера не работаею, или Я не так пишу

[Krjuger]

Использовать рекурсию, такой ответ вас удовлетворит?