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

procedure MatrixOutput(const Matrixx: MatrixType; n: integer);
var
    i, j: integer;
begin
    for i := 0 to n do
    begin
        for j := 0 to n do
            write(Matrixx[i, j], ' ');
        writeln;
    end;
    writeln;
end;