Найти макс. и мин. элементы матрицы и их позиции, а также их среднее арифметическое.

const name = 'matrix.txt';
begin
  // 0. Создание матрицы
  var n := ReadLnInteger('n =');
  var a := MatrRandomInteger(n, n, -99, +99);
  WriteLn('Сгенерирована матрица:'); a.PrintLn(4);
  // 1. Запись файла
  var t : Text;
  Rewrite(t, name);
  for var row := 0 to n-1 do
    begin
      for var col := 0 to n-1 do
        Write(t, a[row,col]:4);
      WriteLn(t);
    end;
  Close(t);
  WriteLn('Создан файл ' + name);
  // 2. Читаем файл
  var maxRow, maxCol, minRow, minCol : Integer;
  Reset(t, name);
  for var row := 0 to n-1 do
    begin
      for var col := 0 to n-1 do
        begin
          Read(t, a[row,col]);
          if a[row,col] > a[maxRow,maxCol] then (maxRow,maxCol) := (row,col);
          if a[row,col] < a[minRow,minCol] then (minRow,minCol) := (row,col);
        end;
      ReadLn(t);
    end;
  Close(t);
  WriteLn('Считан файл ' + name);
  // 3. Добавляем информацию
  Append(t, name);
  WriteLn(t, maxRow, #32, maxCol, #32, a[maxRow,maxCol]);
  WriteLn(t, minRow, #32, minCol, #32, a[minRow,minCol]);
  WriteLn(t,(a[maxRow,maxCol] + a[minRow,minCol]) / 2);
  Close(t);
  WriteLn('Добавлена информация в файл:');
  WriteLn(maxRow, #32, maxCol, #32, a[maxRow,maxCol]);
  WriteLn(minRow, #32, minCol, #32, a[minRow,minCol]);
  WriteLn((a[maxRow,maxCol] + a[minRow,minCol]) / 2);
end.