Вычисление количество строк двумерного массива

[dxn]

Здравствуйте, задача вроде как легкая, но я никак не могу ее сделать,может кто-нибудь сможет помочь, вот условие:
Написать программу, в которой будет реализована процедура вычисления
кол-ва строк двумерного массива, в которых среднее арифметическое
элементов меньше нуля.

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,n:integer;
    sr:real;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   n:=0;
   For i:=1 to 10 do
   begin
      sr:=0;
      For j:=1 to 10 do
         sr:=sr+p[i,j];
      sr:=sr/10;
      If sr<0 then
         n:=n+1;
   end;
   Writeln('n = ',n);
   Readln;
end.

Сойдет?

[dxn]

Спасибо, но мне нужно, чтобы в программе была процедура, сейчас попробую сам переделать)