Комбинации, Комбинации Опции

[alecsandr]

Не подскажите, как найти все комбинации фактариала числа? (Пример:4!= 1234, его комбинации, 1243,1342,1324 и т.д.)

[alecsandr]

Program perms;
uses crt;
var
  i, j, h, n, k: integer;
  a:array[0 .. 100] of integer;  { ìàññèâ äëÿ õðàíåíèÿ ïåðåñòàíîâêè }
 out,:text;
{ïðîöåäóðà âûâîäà ïîëó÷åííîé ïåðåñòàíîâêè}
procedure output;
var i: integer;
begin
  writeln;
  for i:=1 to n do write(a[i],' ');
end;

begin
clrscr;
assign(out,'c:\ out.txt');
rewrite (out);
  write('êîëè÷åñòâî ýëåìåíòîâ ïåðåñòàíîâêè: '); readln(n);
  fillchar(a, sizeof(a), 0);
  { ââîä ýëåìåíòîâ íà÷àëüíîé ïåðåñòàíîâêè }
  for i:=1 to n do a[i]:=i;
  repeat
    output;  { âûâîä òåêóùåé ïåðåñòàíîâêè }
    i:=n;
    while a[i-1]>a[i] do dec(i); { ïîèñê ñêà÷êà }
    j:=i-1;
    h:=a[j];
    while a[i+1]>h do inc(i); { ïîèñê ïåðâîãî ìåíüøåãî ýëåìåíòà }
    a[j]:=a[i];  a[i]:=h;
    i:=j+1; k:=n;
    while i<k do begin { ïåðåñòàíîâêà ”õâîñòà” }
       h:=a[i]; a[i]:=a[k]; a[k]:=h;
       inc(i); dec(k);
       write(out,'kombinacii');
    end
  until j=0;
    close(out);
end. 

она останавливается на выделенной строчке