Переставить в массиве эементы с номерами m и n - Pascal

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

Целочисленный массив из 8 элементов вводится с клавиатуры. Также пользователь вводит ещё два числа m и n (m≠n) после ввода массива. Переставить в массиве эементы с номерами m и n, после чего вывести массив (все его элеметны).

Решение задачи: «Переставить в массиве эементы с номерами m и n»

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

var
  i, t, n, m: integer;
  a: array[1..8] of integer;
begin
  writeln('Введите элементы массива: ');
  for i := 1 to 8 do read(a[i]);
  write('m = ');
  read(m);
  write('n = ');
  read(n);
  t := a[n];
  a[n] := a[m];
  a[m] := t;
  writeln('Полученный массив: ');
  for i := 1 to 8 do write(a[i], ' ');
end.

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

В данном коде происходит перестановка элементов массива с номерами m и n.

Переменные i, t, n, m и a объявляются и инициализируются.
Пользователю предлагается ввести элементы массива. Для этого используется цикл for, который выполняется 8 раз (так как массив имеет размерность 8).
Значение переменной m считывается с помощью функции read.
Значение переменной n считывается с помощью функции read.
Переменная t инициализируется значением элемента массива с индексом n.
Элемент массива с индексом m заменяется на значение переменной t.
Значение переменной t заменяется на элемент массива с индексом n.
Элемент массива с индексом n заменяется на значение переменной m.
Выводится полученный массив с помощью цикла for. Таким образом, данный код выполняет перестановку элементов массива с номерами m и n.