Поменять местами значения первого и последнего элементов массива - Free Pascal

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

8. Составьте программу перемены местами в массиве первого и последнего элементов. помогите пожалуйста

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

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

type index = 1 .. 10;
var
  a: array [index] of Integer;
  i : index; t: Integer;
begin
  Randomize;
  for i in index do a[i]:=Random(100); // <---
  Write('A ='); for t in a do Write(' ',t); WriteLn;
  t:=a[Low(a)]; a[Low(a)]:=a[High(a)]; a[High(a)]:=t;
  Write('A''='); for t in a do Write(' ',t); WriteLn;
end.

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

Объявляется тип переменной index, который представляет собой диапазон целых чисел от 1 до 10.
Объявляется динамический массив a типа Integer, размером 10.
Инициализируются переменные i и t типом index.
Задаётся начальное значение для генератора случайных чисел с помощью функции Randomize.
В цикле for перебираются все элементы массива a. Каждый элемент инициализируется случайным числом от 0 до 99 с помощью функции Random(100).
С помощью функции Write выводятся все элементы массива a, разделенные пробелами.
Выводится символ новой строки WriteLn.
Значение первого элемента массива a присваивается переменной t.
Значение последнего элемента массива a присваивается первому элементу массива a.
Значение переменной t присваивается последнему элементу массива a.
С помощью функции Write выводятся все элементы массива a, разделенные пробелами.
Выводится символ новой строки WriteLn.