Пусть А — двумерный массив целых чисел размерности N*N. Найти число строк с отрицательной суммой элементов — Pascal(Паскаль)

program sd;
const
n=3;
var
k,i,j,sum:integer;
a:array[1..n,1..n] of integer;
Begin
      for i:=1 to n do
         begin
           for j:=1 to n do
              begin
              a[i,j]:=random(11)-5;
              write(a[i,j]:3);
              sum:=a[i,j]+sum;
              end;
         writeln;
         if sum<0 then inc(k);
         sum:=0;
         end;
writeln('Êîëè÷åñòâî ñòðîê = ',k);
END.