В задаче надо создать случайны массив целых чисел, а потом вывести исходный массив и массив тех же чисел, но в обратном порядке. Задачка подойдет для школьников, начинающих изучать программирование. Вот код решения задачи.

// Инвертирование массива
uses Arrays;

procedure Invert(a: array of T);
begin
 var n := a.Length;
 for var i:=0 to n div 2 - 1 do
 Swap(a[i],a[n-i-1]);
end;

begin
 var a: array of integer := CreateRandomIntegerArray(10);
 
 writeln('Исходный массив: ');
 a.Writeln;
 
 Invert(a);

 write('Массив после инвертирования: ');
 a.Writeln;
end.

---

---