Const
  N = 20;

var
  a,b: array [1..N] of integer;
  i : integer;

begin
//Для проверки заполним массив сл. числами
  for i := 1 to N do
  begin
    b[i] := Random(41) - 20;
    write(b[i]:4);
  end;
  writeln;
  //Вывод в другой массив
  for i := 1 to N do
  begin
    a[i] := b[n-i+1];
    write(a[i]:4);
  end;
end.

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var b:=ArrRandom(ReadInteger('n='),10,99); b.Println;
  var a:=b.Reverse.ToArray;
  a.Println
end.

Тестовое решение:
n= 13
53 75 96 56 24 37 99 57 96 41 51 31 50
50 31 51 41 96 57 99 37 24 56 96 75 53