Дан массив из 10 элементов, вычислить произведение чётных элементов, и отрицательные элементы заменить 0?

Program z;

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

begin

p:=1;

write ('Начальный массив: ') ;

for i:=1 to 10 do

begin

a[i]:=random (-10,10) ;

write (a[i]:4) ;

if (not (odd (a[i]))) and (a[i]0) then p:=a[i]*p;

end;

writeln;

write ('Полученный массив: ') ;

for i:=1 to 10 do

begin

if a[i]<0 then a[i]:=0;

write (a[i]:4) ;

end;

writeln;

write ('P = ', p) ;

end.