Дан массив из n элементов. все элементы масивы расположить в обратном порядке

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