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

program z;var a:array [1..10] of integer; i,p:integer;beginp:=1;write('Начальный массив: ');for i:=1 to 10 dobegina[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 dobeginif a[i]<0 then a[i]:=0;write(a[i]:4);end;writeln;write('P = ',p);end.