Найти произведение отрицательных чётных элементов матрицы- Pascal(Паскаль)

const n=5;
    m=5;
var a:array[1..n,1..m]of integer;
    i,j,p:integer;
begin
randomize;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        a[i,j]:=random(11)-5;
        write(a[i,j]:4);
    end;
    writeln;
end;
p:=1;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]<0)and not(odd(a[i,j])) then p:=p*a[i,j];
writeln('Произведение = ',p);
end.

program matrica;
var i,j,k,n,m,proizved:integer;
    a:ARRAY [-50..50,-50..50] of integer;
begin
writeln('skolko strok(n) i skolko stolbcov(m) v matrice');
write('n=');
readln(n);
write('m=');
readln(m);
proizved:=1;
writeln('vvedite znachenya v matricu:');
for i:=1 to n do
for j:=1 to m do  begin
read(a[i,j]);
if (a[i,j]<0) and (odd(a[i,j])) then proizved:=proizved*a[i,j]; end;
writeln('proizvedenie = ',proizved);
end.