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

Program n1;
var m,k,p,a,i: integer;
begin
readln(m);
k:=0;
p:=1;
for i:=1 to m do
begin
readln(a);
if a<0 then k:=k+1; 
if a mod 2<>0 then p:=p*a;
end;
writeln(k);
writeln(p);
end.