Получить все перестановки натуральных чисел от 1 до N

  NextPermt:=False;                                           { допустим, следующей перестановки нет }
  i:=High(v)-1; while (i>=0) and (v[i]>=v[i+1]) do Dec(i);  { с конца ищем элемент меньше следующего }
  if i<0 then Exit;                                  { такого нет => последняя перестановка, выходим }

  k:=High(v); while v[i]>=v[k] do Dec(k);   { с конца ищем k-й элемент, меньший i-го }
  Swap(v[i],v[k]);                          { меняем его с i-м }
  Reverse(v,i+1,High(v));                   { развернём элементы от i+1 до конца }
  NextPermt:=True;                          { есть перестановка }

function NextCombination(var v: array of Integer; n: Integer): Boolean;
var i, k: Integer;
begin
  NextCombination:=False;
  k:=High(v); while v[k]=n+k-High(v) do Dec(k);
  if k<0 then Exit;
  Inc(v[k]); for i:=k+1 to High(v) do v[i]:=v[k]+i-k;
  NextCombination:=True;
end;

const a: array [0..2] of Integer = (1, 2, 3);
begin
  repeat vWrite(a) until not NextCombination(a,5);
end.