Получить все перестановки элементов 1, ., 6 - Pascal

Формулировка задачи:

получить все перестановки элементов 1, ..., 6

Решение задачи: «Получить все перестановки элементов 1, ., 6»

Листинг программы

const n=6;
var
  i, j, k, t: Integer;
  a: array[1..n] of Integer;
begin
  for i:=1 to n do a[i]:=i;
  repeat
    for i:=1 to n do Write(' ',a[i]); WriteLn;
    i:=n; while a[i-1]>a[i] do Dec(i);
    k:=i-1; t:=a[k];
    while a[i+1]>t do Inc(i);
    a[k]:=a[i]; a[i]:=t;
    i:=k+1; j:=n;
    while i<j do begin
      t:=a[i]; a[i]:=a[j]; a[j]:=t;
      Inc(i); Dec(j);
    end;
  until k=0;
end.

Объяснение кода листинга программы

Объявляется константа n со значением 6.
Объявляются переменные i, j, k и t целочисленного типа.
Создается массив a размером 6 элементов.
Инициализируется массив a значениями от 1 до 6 с помощью цикла for.
Начинается цикл repeat, который выполняется до тех пор, пока условие (k=0) не будет выполнено.
Выводятся на экран все перестановки элементов от 1 до 6.
Устанавливается значение i равное n, и происходит цикл while, в котором i уменьшается до тех пор, пока a[i-1] больше a[i].
Значение k устанавливается как i-1, и значение t устанавливается как a[k].
Происходит цикл while, в котором i увеличивается до тех пор, пока a[i+1] больше t.
Находит место для обмена значениями, и происходит обмен между a[k] и a[i].
Устанавливаются значения i и j, и происходит цикл while, в котором выполняется обмен значений элементов массива a между i и j, пока i меньше j.
Цикл repeat завершается, и программа завершает выполнение.