Создание массива, его вывод и обмен элементов в массиве - PascalABC.NET

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

Помогите, пожалуйста, с задачей! Выполнить следующие действия. 1.Создать массив из 10 целых чисел. 2.Вывести массив на экран в виде строки чисел. 3.Поменять местами элементы массива следующим образом: 1 со 2 3 с 4 5 с 6 7 с 8 9 с 10

Решение задачи: «Создание массива, его вывод и обмен элементов в массиве»

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

begin
  var A : array of Integer;
  SetLength(A, 10);
  for var i := 1 to 10 do
    A[i-1] := ReadLnInteger('A[' + i.toString + '] =');
  WriteLn('Введён массив А = ', A);
  for var i := 0 to 4 do
    Swap(A[i*2], A[i*2+1]);
  WriteLn('Массив после перестановок A = ', A);
end.

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

Объявляется массив A типа array of Integer
С помощью функции SetLength(A, 10) задается длина массива A равная 10
С помощью цикла for и метки i от 1 до 10 создаются элементы массива A
- A[i-1] присваивается значение, введенное пользователем при помощи функции ReadLnInteger
- Значение i используется для формирования строки, которая будет выводиться на экран при чтении элемента массива
Выводится сообщение о введенном массиве A
С помощью цикла for и метки i от 0 до 4 выполняется перестановка элементов массива A
- Swap(A[i2], A[i2+1]) меняет местами элементы массива A, начиная с индекса 2 и заканчивая индексом 9
Выводится сообщение о массиве A после перестановок В итоге, код выполняет следующие действия:
Создает массив A.
Заполняет массив A значениями, введенными пользователем.
Выводит сообщение о введенном массиве A.
Обменивает элементы массива A, начиная с индекса 2 и заканчивая индексом 9.
Выводит сообщение о массиве A после перестановок.