В двумерном массиве вычислить частное от деления произведения всех gоложительных элементов на произведение всех отрицательных элементов

var i,j,a,b,n,m: integer;
mas: array [1..100, 1..100] of integer;  
begin
  write('Введите количество столбцов: ');
  readln(m);
  write('Введите количество строк: ');
  readln(n);
  b:=1;
  a:=1;
  for i:=1 to n do 
  for j:=1 to m do begin
  write('mas[',i,',',j,']=');
  readln(mas[i,j]); end;
   for i:=1 to n do 
   for j:=1 to m do begin
  if mas[i,j]>0 then a:=a*mas[i,j];
  if mas[i,j]<0 then b:=b*mas[i,j]; end;
  writeln('polojitelnie/otricatenie=', a/b:5:2);
 readln;
end.

program p8;
uses crt;
var
   a:array[1..100, 1..100] of real;
   n,m,i,j:integer;
   p,o:real;
begin
Write('Введите количество строк - ');
readln(n);
Write('Введите количество столбцов - ');
readln(m);
p:=1;
o:=1;
for i:=1 to n do
for j:=1 to m do
    begin
        write('Введите a[',i,',',j,'] - ');
        readln(a[i,j]);
        if a[i,j]>0
           then p:=p*a[i,j];
        if a[i,j]<0
           then o:=o*a[i,j];
    end;
Writeln('Ответ ',p/o:0:0);
readln;
end.