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

program Project2;

const
  N = 5; { размер массива }

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

begin
  for i := 1 to N do
  begin
    Write('Введите ', i, '-й/', N, ' элемент массива : ');
    ReadLn(b[i]);
  end;
  Writeln(' ');
  Write(' Исходный массив : ');
  for i := 1 to N do
    Write(b[i]);
  Writeln(' ');
  Writeln(' ');
  Write(' Обратный массив : ');
  for i := 1 to N do
  begin
    a[i] := b[N - i + 1];
    write(a[i]);
  end;

end.