Количество отрицательных элементов каждой строки

program lab_7;
Var
   a: array [1..10, 1..10] of real;
   i,j,n,m,k: integer;
   pr: real;
   sum: integer;
begin
 write('Введите число строк');
 readln(n);
 write('Введите число столбов');
 readln(m);
 writeln('Введите ',n*m ,' элементов матрицы ');
 for i:=1 to n do
          for j:=1 to m do
                  read(a[i,j]);
 writeln(' Исходная матрица');
 for i:=1 to n do begin
          for j:=1 to m do
                  write(a[i,j]:8:2);
          writeln;
end;
 
 
    pr:=0;
    For i:=1 to n do
     For j:=1 to m do
      if (i*j) mod 2 = 0 then pr:=pr+a[i,j];
 
 
      writeln('sum = ', pr);
      if pr>0 then writeln(' summa polog') else if pr<0 then writeln( ' summa otric');
  writeln('кол-во отрицательных элементов каждой строки');
   for i:=1 to n do begin
   k:=0;
  for j:=1 to m do
  if a[i,j]<0 then k:=k+1;
  write(k:5);
 end;
readln;
end.

const
  nMax=10; W=7; D=2;
type
  TMatrix = array [0..nMax-1, 0..nMax-1] of Real;

procedure mRead(var a: TMatrix; var m, n: Integer);
var i, j: Integer;
begin
  repeat Write('m n [2..',nMax,']: '); Read(m,n);
  until (m in [2..nMax]) and (n in [2..nMax]);
  Write('элементы (',m*n,'): ');
  for i:=0 to m-1 do for j:=0 to n-1 do Read(a[i,j]);
  ReadLn;
end;

procedure mWrite(const a: TMatrix; m, n: Integer);
var i, j: Integer;
begin
  for i:=0 to m-1 do begin
    for j:=0 to n-1 do Write(' ',a[i,j]:W:D); WriteLn;
  end;
end;

function  SumPR(const a: TMatrix; m, n: Integer): Real;
var i, j: Integer; r: Real;
begin
  r:=0;
  for i:=0 to n-1 do for j:=0 to m-1 do
    if Odd((i+1)*j) then r:=r+a[i,j];
  SumPR:=r;
end;

function  vNegCnt(const v: array of Real; n: Integer): Integer;
var i, r: Integer;
begin
  r:=0; for i:=n-1 downto 0 do Inc(r,Ord(v[i]<0));
end;
 
procedure mRowNegCnt(const a: TMatrix; m, n: Integer);
var i: Integer;
begin
  Write('Количество отрицательных элементов каждой строки:');
  for i:=0 to m-1 do Write(NegCnt(a[i],n):5); WriteLn;
end;