В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных - Pascal

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

Буду очень признателен "В заданном одномерном массиве поменять местами соседние элементы, стоящие на чётных местах, с элементами, стоящими на нечётных. Каждый элемент массива выбирается случайно.В начале и по окончании вывести на экран значения элементов массива (до - после)."

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

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

Var A:array[1..100] of integer;
    i,n,t:integer;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный массив: ');
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Преобразованный: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
End.

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

В данном коде объявлены следующие переменные:

A: массив целых чисел размером от 1 до 100.
i: индекс элемента массива, начиная с 0.
n: размерность массива.
t: временная переменная для хранения значения элемента массива. Сначала происходит чтение размера массива из ввода пользователя. Затем, для каждого элемента массива (от 1 до n), значение элемента генерируется случайным образом от 15 до 30 и выводится на экран. После этого выводится символ новой строки. Далее начинается цикл, который меняет местами соседние элементы массива, стоящие на четных позициях, с элементами, стоящими на нечетных позициях. Для каждой пары соседних элементов выполняется следующая последовательность действий:
1. Инкрементируется счетчик i на единицу.
2. Значение элемента с индексом i сохраняется во временной переменной t.
3. Значение элемента с индексом i+1 вытесняется из массива, заменяя его на значение t.
4. Инкрементируется счетчик i на единицу. После завершения цикла выводится преобразованный массив. По завершении работы программы пользователь может ввести любые данные для продолжения работы программы.