Const
  n=15;
var
  a:array[1..n] of integer;
  i,t:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=Random(50)+10;
    Write(a[i]:3)
    end;
  Writeln;
  for i:=1 to n div 2 do
    begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
  Writeln('Результирующий массив');
  for i:=1 to n do Write(a[i]:3);
  Writeln;
end.

Пример
Исходный массив
 25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
 58 50 29 47 25 13 40 11 52 54 22 34 47 19 25