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

var
  a: array[1..10,1..10] of integer;
  n,m,i,j: integer;
  p1,p2: real;
begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  writeln('Матрица:');
  p1:=1; p2:=1;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
      if a[i,j]>0 then p1:=p1*a[i,j]
        else if a[i,j]<0 then p2:=p2*a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Произведение положительных = ',p1);
  writeln('Произведение отрицательных = ',p2);
  writeln('Частное произведений положительных и отрицательных = ',p1/p2:0:3);
  readln;
end.

uses crt;
var
  a: array[1..10,1..10] of integer;
  n,m,i,j: integer;
  p1,p2:longint;
begin
  writeln('Skolko strok? ne bolshe 10');
  read(n);
  writeln('Skolko stolbcov? ne bolshe 10');
  read(m);
  randomize;
  writeln('Matrica:');
  p1:=1; p2:=1;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
      if a[i,j]>0 then p1:=p1*a[i,j]
        else if a[i,j]<0 then p2:=p2*a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Proizved polozh = ',p1);
  writeln('Proizved otricatelnih = ',p2);
  writeln('Chastnoe = ',p1/p2:0:3);
  readkey;
end.