Дан целочисленный одномерный массив из n-элементов.вывести на экран четные элементы стоящие на нечетных массивов через паскаль

Uses crt;
const n=15;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then
write(a[i]:3);
end.