Двухмерный массив. Вычислить количество строк, сумма элементов которых меньше нуля, равна нулю или больше нуля

for i:=1 to n do
for j:=1 to n do
sum[i]:=sum[i]+a[i,j];
for i:=1 to n do
if sum[i]>0 then inc(k1)
else if sum[i]<0 then inc(k2)
else inc(k3);

  l:=0; u:=0; k:=0;
  for i:=1 to m do 
     begin
     s:=0;
     for j:=1 to n do
        s:=s+s[i,j];
     if s<0 then k:= k+1  {меньше ноля}
              else if s=0 then l:=l+1; {равные нулю}
                             else u:=u+1; {больше ноля}
     end;

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; 
     s: integer; i,j,k1,k2,k3: byte; 
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(19)-9;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 for i:=1 to n do
  begin
   s:=0;
   for j:=1 to n do
    s:=s+a[i,j];
   if s>0 then inc(k1);
   if s<0 then inc(k2)
   else inc(k3);
  end;
 writeln('кол-во строк, сумма которых > 0 - ',k1);
 writeln('кол-во строк, сумма которых < 0 - ',k2);
 writeln('кол-во строк, сумма которых = 0 - ',k3);
end.