В массиве поменять местами элементы - Turbo Pascal

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

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

Решение задачи: «В массиве поменять местами элементы»

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

uses crt;
const n=25;
var x:array[1..n] of integer;
    i,j,t:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=-16+random(36);
  write(x[i]:4);
 end;
writeln;
i:=1;
while i<n-2 do
 begin
  if x[i+1]<x[i+2] then j:=i+1 else j:=i+2;
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t;
  i:=i+3;
 end;
writeln('Измененный массив');
for i:=1 to n do
write(x[i]:4);
readln
end.

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

В этом коде задача заключается в изменении порядка элементов в массиве. Вот что происходит:

Объявляются переменные: массив x, а также i, j и t типа integer. Значение n равно 25.
В цикле выводятся элементы массива x с шагом 1 до n. Значения массива инициализируются случайными числами от -16 до 19 с шагом 4.
Начинается цикл, который продолжается до тех пор, пока i меньше n-2. Это означает, что цикл выполняется только для первых n-2 элементов массива.
В каждой итерации цикла проверяется, является ли следующий элемент меньше следующего за ним. Если это так, то значения i и j меняются местами, и текущий элемент присваивается переменной t. Затем значения i, j и t меняются местами, и i увеличивается на 3.
По завершении цикла выводятся элементы массива x с шагом 1 до n.
Программа завершается, ожидая ввода пользователя.