Расположить элементы одномерного массива в обратном порядке - Free Pascal

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

Создать одномерный массив [1..10] и поменять местами первый элемент с последним, второй с предпоследним и.т.д. Сделать в виде функции. Числа вводятся с клавиатуры. Спасибо

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

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

Program Kek1;
Uses crt;
Type
mass = array [1..10] of integer;
End;
Function ReCange(a: mass;): mass;
Var b, x: integer;
Begin
b:= 1;
Repeat
x:= a[10-b];
a[10-b]:= a[b];
a[b]:= x;
b:= b+1;
Until b>5;
For b:= 1 to 10 do
Write(a[b], ' ');
End;
Var a: mass;
      b: integer;
Begin
For b:= 1 to 10 do
Begin
Read(a[b]);
Write(' ');
End;
ReCange(a[b]);
End.

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

Объявлен тип массива mass с размерностью 1..10.
Объявлена функция ReCange, которая принимает массив a в качестве параметра и возвращает массив a.
В функции ReCange объявлены две переменные b и x типа integer.
Переменная b инициализируется значением 1.
В цикле Repeat происходит пять повторений следующих действий:
1. Переменная x инициализируется значением элемента массива a с индексом 10-b.
2. Элементы массива a меняются местами: элемент с индексом b заменяется на значение переменной x, а элемент с индексом 10-b заменяется на элемент с индексом b.
3. Переменная b увеличивается на 1. до тех пор, пока значение переменной b не станет больше 5.
В цикле For происходит обход элементов массива a с индексами от 1 до 10, и каждый элемент выводится на экран с пробелом после него.
В основной части программы объявлены две переменные a и b типа mass и integer соответственно.
В цикле For происходит обход элементов массива a с индексами от 1 до 10, и каждый элемент считывается с помощью функции Read, а затем выводится на экран с пробелом после него.
Функция ReCange вызывается с аргументом a[b], где b - это переменная, инициализированная значением 10.
Программа завершается.