Вычислить среднее арифметическое (геометрическое) элементов матрицы. Получить новую матрицу путем вычитания из каждого элемента среднего арифметического (геометрического) — Pascal(Паскаль)

program rrr;

const
  n = 3;
  m = 3;

type
  massiv = array [1 .. n, 1 .. n] of real;

var
  a: massiv;
  result: real;

procedure vvod(var x: massiv);
var
  i, j: integer;
begin
  writeln('wwedite massiv');
  for i := 1 to n do
    for j := 1 to m do
      readln(x[i, j]);
end;

procedure vivod(x: massiv);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      write(x[i, j]:6:2);
  writeln;
end;

procedure srarif(var x: massiv);
var
  sum, min, max: real;
  i, j: integer;
begin
  sum := 0;
  for i := 1 to n do
    for j := 1 to m do
    begin
      sum := sum + x[i, j];
    end;
  result := sum / (n * m);
  for i := 1 to n do
    for j := 1 to m do
      x[i, j] := x[i, j] - result;
end;

begin
  vvod(a);
  srarif(a);
  vivod(a);
  readln;

end.