Дана матрица, заменить 1 столбец столбцом с минимальной суммой элементов. Ошибки при компиляции - Turbo Pascal

Формулировка задачи:

Добрый вечер. Решил закодировать следующую задачу: "дана матрица, заменить 1 столбец столбцом с минимальной суммой элементов, последний столбец заменить столбцом с максимальной суммой элементов". Допустим матрицу я взял квадратную,6х6. Решить задачу используя модули и текстовый вв\выв файлов. Проблема в том,что при компиляции модулей,при использовании локальный формальных пар-ров в функциях выходит ошибка в строке:

MIN:=g(SM)[1];

MAX:=g(SM)[1];

код ошибки 122. при дальнейшей компиляции в модуле с процедурами ошибка 26 в строках:

B[i,nj1]:=A[i,MIN];
      B[i,nj2]:=A[i,MAX];

Так же не уверен в главной программе использующая эти модули. Помоги разобраться. Коды модулей и программы:

UNIT E;
INTERFACE
TYPE matr=array [1..6,1..6] of real;
var A:matr;
    B:matr;
    MIN,MAX,SM:real;
    f1,f2:text;
IMPLEMENTATION
Begin
  ASSIGN(f1,'t.pas');
  RESET(f1);
  ASSIGN(f2,'c.pas');
  REWRITE(f2);
End.

UNIT FF;
INTERFACE
USES E;
  function MN(var A;n:integer):real;
  function MX(var A;n:integer):real;
IMPLEMENTATION
USES PP;
  function MN;
TYPE g=array [1..10922] of real;
VAR MIN,i:integer;
 
Begin
  MIN:=g(SM)[1];
  FOR j:=2 to n do
    begin
      IF MIN > g(SM)[j] then
        MIN:=g(SM)[j]
    end;
  MN:=MIN;
End;
function MX;
TYPE g=array [1..10922] of real;
VAR MAX,i:integer;
Begin
  MAX:=g(SM)[1];
  FOR j:=2 to n do
    begin
      IF MAX < g(SM)[j] then
        MAX:=g(SM)[j]
    end;
  MAX:=g(SM)[j];
END.

UNIT PP;
INTERFACE
USES E;
procedure SM(var A:matr;n,m:integer;var SM);
procedure NEW(var A:matr;n,nj1,nj2:integer;var B:matr);
IMPLEMENTATION
USES FF;
procedure SM;
TYPE mas=array [1..10922] of real;
Var i,j:integer;
Begin
  FOR j:=1 to n do
    begin
      mas(SM)[j]:=0;
      for i:=1 to m do
        mas(SM)[j]:=mas(SM)[j]+A[i,j]
    end;
ENd;
  procedure NEW;
var i:integer;
Begin
  FOR i:=1 to n do
    begin
      B[i,nj1]:=A[i,MIN];
      B[i,nj2]:=A[i,MAX];
    end;
end;
End.

PROGRAM MM;
USES E,FF,PP;
Begin
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do
        read(f1,A[i,j]);
    end;
  NEW(var A:matr;n,nj1,nj2:integer;var B:matr);
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do
        write(f2,B[i,j]);
    end;
  CLOSE(f1);
  CLOSE(f2);
END.

Спасибо.

Решение задачи: «Дана матрица, заменить 1 столбец столбцом с минимальной суммой элементов. Ошибки при компиляции»

Листинг программы

unit typ;
interface
const n=6;
type mtr=array[1..n,1..n] of integer;
var f,g:text;
    a:mtr;
implementation
begin
end.

Объяснение кода листинга программы

В данном коде представлен фрагмент программы на языке Turbo Pascal. Он содержит объявление типа данных mtr, который представляет собой матрицу целых чисел размером от 1 до 6. Также в этом фрагменте объявлены три переменные: f, g и a, которые являются текстовыми переменными. В реализации данного кода происходит следующее:

Объявляется переменная a типа mtr, которая будет использоваться для хранения матрицы.
Переменные f и g объявляются как текстовые переменные.
Далее происходит какой-то код, который должен заменить первый столбец матрицы a столбцом с минимальной суммой элементов. Однако, данный фрагмент кода не содержит этой логики, поэтому он не компилируется. Ошибки при компиляции могут возникнуть из-за отсутствия необходимой логики для замены столбца матрицы. Например, необходимо определить, каким образом найти минимальную сумму элементов в столбце и как заменить соответствующие элементы в матрице.