Вывести элементы массива с нечетными номерами в порядке убывания номеров — Паскаль(Pascal) — CF

program Project1;
const
  m = 99;
 
var
  a: array[1..m] of integer;
  n, i: integer;
 
begin
randomize();
  repeat
    write('Введите количество нечетных элементов, в диапазоне [3..', m, ']: ');
    readln(n)
  until (n in [2..m]) and (odd(n));
  writeln('Введите элементы:');
  for i := 1 to n do
    begin
      write('A[', i, '] = ');
      a[i]:=random(100); {Заполняем случайными числами от 1 до 100}
      writeln(a[i]);
    end;
  writeln('Элементы с нечётными номерами в порядке убывания:');
  for i:= (n + 1) div 2 downto 1 do
    write(a[i * 2 - 1], ' ');
  readln
end.