Дан массив размера N. Вывести сначала его элементы с непарными индексами, а затем — с парными — 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]:2);
  end;
  writeln();
  writeln('--------');

  for i := 1 to n do
    if odd(i) then
      write(a[i], ' ');

  for i := 2 to n do
    if i mod 2 = 0 then
      write(a[i], ' ');

end.