Дан массив x(7). найти номера нечётных элементов, стоящих на чётных местах (паскаль)

Мне лениво каждый раз вводить значения от руки, поэтому массив заполняется рандомно (в задаче нет четкого указания) но если нужен ввод с клавы, его нетрудно заменить:
вместо
     A[i]:=random(20); 
     write(A[i]:4) 
надо
     readln (A[i])
------------------------------------------------------

program aaa;
var A: array[1..7] of integer; i: byte;
begin  
  randomize;  //запускаем генератор случайных чисел
  
  // формируем и одновременно выводим массив  
  writeln (Исходный массив:);
  for i:=1 to 7 do
    begin
      A[i]:=random(20);  //рандомное значение 
      write(A[i]:4)  //вывод массива
    end;
  writeln;
  
  //проверяем условие и выводим номера нужных элементов:
  writeln (номера нечётных элементов, стоящих на чётных местах :);
  writeln;
  for i:=1 to 7 do
   if ((i mod 2)=0) and ((A[i] mod 2)=1)
     then writeln (i:3) 
end.
-----------------------------------------------

Результат работы программы:

Исходный массив:
  13  16   7  11  11   5  17

номера нечётных элементов, стоящих на чётных местах :
  4
  6