Изменить порядок следования массива на обратный - Pascal

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

Дан одномерный массив. Изменить порядок следования массива на обратный. Помогите пожалуйста)

Решение задачи: «Изменить порядок следования массива на обратный»

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

uses crt;
const n=5;
var a:array[1..n] of integer;
    i,k:integer;
begin
clrscr;
for i:=1 to n do
   begin
     a[i]:=-10+random(20);
     write(a[i],' ');
   end;
writeln;
for i:=1 to n div 2 do
  begin
    k:=a[i];
    a[i]:=a[n+1-i];
    a[n+1-i]:=k;
 end;
 textcolor(lightgreen);
for i:=1 to n do
write(a[i],' ');
readln;
end.

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

Объявляются переменные: n - константа, равная 5, a - массив из 5 элементов типа integer, i и k - целочисленные переменные.
В цикле for с шагом от 1 до 5 происходит заполнение массива a случайными значениями от -10 до 10 с шагом 2.
Выводится заполненный массив a.
В цикле for с шагом от 1 до 5/2 (то есть от 1 до 2, так как 5/2=2,5, что округляется до 2) происходит обмен элементов массива a таким образом, чтобы первый элемент стал последним, второй - предпоследним и т.д.
Выводится обратный порядок элементов массива a.
Программа ожидает ввода данных для подтверждения их корректности.