В массиве х1,х2,.,х25 поменять местами элементы х1,х4,х7,х10,.,х22 - Turbo Pascal

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

В массиве х1,х2,...,х25 поменять местами элементы х1,х4,х7,х10,...,х22 с наименьшим следующим за ними соответствующей пары элементов. Места заполнен целыми числами, случайным образом из диапазона от -16 до 19.

Решение задачи: «В массиве х1,х2,.,х25 поменять местами элементы х1,х4,х7,х10,.,х22»

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

procedure swap(var a, b : Integer); var t : Integer; begin t := a; a := b; b := t; end;
var
  x : array [1..25] of Integer;
  i : Integer;
begin
  Randomize; for i := 1 to 25 do x[i] := Random(35)-16;
  for i := 1 to 25 do Write(x[i]:3); WriteLn;
  for i := 0 to 7 do if x[i*3+2] < x[i*3+3] then Swap(x[i*3+1],x[i*3+2]) else Swap(x[i*3+1],x[i*3+3]);
  for i := 1 to 25 do Write(x[i]:3); WriteLn;
end.

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

В данном коде реализована процедура обмена (swap) для двух целых чисел. Для этого объявлена вспомогательная переменная t, которая хранит значение первого аргумента a. Затем значения a и b меняются местами, а затем заново присваиваются значениям a и b. Далее в коде объявлен массив х1,х2,.,х25 (x) и инициализируется случайными числами от 1 до 34 с помощью функции Random(35)-16. Затем элементы х1,х4,х7,х10,.,х22 меняются местами. Для этого используется цикл for с шагом 3, который выполняет обмен элементов внутри вложенного условного оператора if. Если элемент х[i3+2] меньше элемента х[i3+3], то выполняется обмен элементов х[i3+1] и х[i3+2]. В противном случае выполняется обмен элементов х[i3+1] и х[i3+3]. В конце кода выводятся элементы массива х1,х2,.,х25 (x) с помощью цикла for и функции Write(x[i]:3). Таким образом, код выполняет следующие действия:

Инициализация массива x случайными числами.
Обмен элементов х1,х4,х7,х10,.,х22.
Вывод элементов массива х1,х2,.,х25.