Вывести все четные элементы массива стоящие на нечетных местах(Паскаль)

var a: array[1..10] of integer;

i:integer;

begin

for i:=1 to 10 do  begin a[i]:=random(255);  

write(a[i],' ');end;

writeln;

for i:=1 to 10 do

 if (a[i]mod 2 = 0) and  (i mod 2 =1) then

   write(a[i],' ')end.