Дан массив из 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.