implementation
 procedure Negative(A:matr; Var L:inmass);
Var i,j,k:integer;
Begin
for i := 1 to n do
  Begin
  k := 0;
  for j :=  1 to m do
  if A[i,j] < 0 then k := k + 1;
  L[i] := k;
  end;
end;  {Negative}
function Maximum(L:inmass):boolean;
Var i:integer;
      b:boolean;
Begin
b := true;
i := 1;
repeat i := i + 1;
       if L[i] > L[1] then b := false
until (i >= n) or (not b);
Maximum := b;
end;  {Maximum}
function SrArifm(A:matr):real;
Var s:real;
      i,j:integer;
Begin
s := 0;
for i := 1 to n do
for j := 1 to m do
s := s + A[i,j];
SrArifm := s / (m * n);
end;  {SrArifm}
procedure Replacement(Var A:matr);
Var i,j:integer;
Begin
for i := 1 to n do
for j := 1 to m do
if A[i,j] < 0 then A[i,j] := abs(A[i,j]);
end;  {Replacement}
end.

Все после этого можем запускать программу 
Для особо ленивых, можно скачать готовые исходники

Скачать