Матрицы, задача

[ЭдикNEO]

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

[Stilet]

Что-то типа

MODULE m;
IMPORT StdLog,ObxRandom;

VAR a:ARRAY(5) OF ARRAY(5) OF REAL;
avg:REAL;oe:BOOLEAN;

PROCEDURE do*;
VAR i,j:INTEGER;
BEGIN StdLog.Clear;oe:=FALSE;
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
   IF a[i,j]<0 THEN oe:=TRUE;END;
   avg:=avg+a[i,j];
   StdLog.Real(a[i,j]);StdLog.Tab;
  END;StdLog.Ln;
 END;
 avg:=avg/25;

 IF ~oe THEN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=a[i,j]-avg;
   StdLog.Real(a[i,j]);StdLog.Tab;
  END;StdLog.Ln;
 END;
 END;
END do;


END m.

Полная кстати.