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

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.