function Average (MatrixType = array of array of Integer;): Real;
var
   Sum, Amount, i, j, n: Integer;
begin
   Sum := 0;
   Amount := 0;
   for i := 0 to n - 1 do
      if MatrixType[i, j] > 0 then
      begin
         Sum := Sum + MatrixType[i, j];
         Inc(Amount);
      end;
   Average := Sum/Amount;
end;