Найти отношение среднего значения элементов массива A к произведению отрицательных элементов массива B

uses crt;
const
   n=4;
   m=5;
var
   a:array[1..n, 1..m] of integer;
   b:array[1..n, 1..m] of integer;
   i,j,PrOtr,sum:integer;
   Sred,Rez:real;
begin
sum:=0;
writeln('Matrix a:');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(50);
        write(a[i,j]:3);
        inc(sum,a[i,j]);
        end;
    writeln;
    end;
Sred:=sum/(n*m);
writeln('Ñðåäíåå çíà÷åíèå = ',sred);
writeln('Matrix b:');
PrOtr:=1;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        b[i,j]:=random(10)-4;
        write(b[i,j]:3);
        if b[i,j]<0 then
        PrOtr:=PrOtr*b[i,j];
        end;
    writeln;
    end;
writeln('Ïð. îòðèö. ýë-òîâ = ',protr);
writeln('********************');
rez:=sred/protr;
writeln('Îòíîøåíèå ñð.çíà÷ ìàòðèöû à, è ïðîèçâ.îòðèö. ýë-òîâ ìàòðèöû b:');
writeln(sred,'/',protr,'=',rez:0:4);
end.