Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран положительные четные элементы их произведения. с паскаля

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