Элементы заданного b(n) переписать в новый массив a(n) в обратном порядке( паскаль)

// 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

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.

Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и  объявить массивы можно как целые. Но это мелочи, не обязательные.
var    
a, b: array[1..20]of integer;  
  i, s,n: integer;    
begin  
   writeln('Массив А:');
   randomize;     
   for i := 1 to 20 do  
     begin     
     a[i] := random(100) - 50;
     write(a[i],' ');     
     if (a[i] > 0) and (i mod 2 = 0) then
        begin
        n:=n+1;   
        b[n]:= a[i];        
        s := s + b[n] * b[n];  
        end;
     end;
   writeln();
   writeln('Массив В:');
   for i:=1 to n do write(b[n]);
   writeln;
   writeln('S = ', s);
end.

Const
  destinations = 'СЗЮВСЗЮВСЗЮВ';    {Предварительно сформированная строка ориентаций}
var
  C : char;
  N1, N2, Position : integer;
begin
  write('Исходная ориентация локатора: ');
  readln(C);
  write('Первая команда поворота: ');
  readln(N1);
  write('Вторая команда поворота: ');
  readln(N2);
  Position := Pos(C, destinations) + 4;   {Устанавливаем позицию на положение заданного направления}
  Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])}
  Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])}
  writeln('Конечная ориентация: ', destinations[Position]);
end.