Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива

Uses CRT;
Const n=5;
var a:array[1..n,1..n] of integer;
    i,j,s,p:integer;
begin
     ClrScr;
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(15)-3;
          gotoxy(j*5+5,i);
          write(a[i,j]);
     end;
     s:=0;
     p:=1;
     for i:=1 to n do
     for j:=1 to n do
     begin
          if a[i,j]>=0 then s:=s+a[i,j];
          if a[i,j]<0 then p:=p*a[i,j];
     end;
     writeln('');
     writeln('Ñóììà ïîëîæèòåëüíûõ=',s);
     writeln('Ïðîèçâåäåíèå îòðèöàòåëüíûõ=',p);
end.

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(15)-3;
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
writeln('');
     s:=0;
     for j:=1 to n do
     begin
          for i:=1 to n do
          begin
          if a[i,j]<0 then inc(s);
          end;
     writeln('Êîëè÷åñåñòâî îòðèöàòåëüíûõ ýëåìåíòîâ â ',j,' ñòîëáöå=',s);
     s:=0;
     end;
end.

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,max,s:integer;
begin
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(31);
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
writeln('');
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
     s:=0;
     for j:=1 to n do
     begin
          for i:=1 to n do
          begin
               if a[i,j]=max then
                  for i:=1 to n do s:=s+a[i,j];
          end;
     end;
writeln('Max=',max);
writeln('Summa=',s);
end.