Permutations.pas

procedure permutations(var a: array[1..N] of Integer; pos: Integer);
begin
  if pos >= N then begin
    for i := 1 to N do
      Write(a[i], ' ');
    WriteLn;
  end;
  
  for i := 1 to N do begin
    a[i] := i;
    permutations(a, pos + 1);
  end;
end;

begin
  // Как исправить процедуру и как ее вызвать, чтобы она вывела все перестановки чисел от 1 до N?
end.