Дан массив A размера N. Вывести его элементы в следующем порядке: A[1], A[N], A[2], A[N-1], A3, A[N-2], и так далее — Pascal(Паскаль)

const
  n = 10;

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

begin
  for i := 1 to n do
  begin
    a[i] := random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  writeln('-------');

  for i := 1 to n div 2 do
  begin
    write(a[i], ' ');
    write(a[n - i + 1], ' ');
  end;
  if odd(n) then
    write(a[n div 2 + 1]);

end.