Дана матрица, заменить 1 столбец столбцом с минимальной суммой элементов

MIN:=g(SM)[1];

MAX:=g(SM)[1];

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.

type matr=array[1..1000,1..1000] of Integer;
 
procedure ReadMatr(var a:matr;n,m:Integer);
var i,j:Integer;
begin
for i:=1 to n do 
 for j:=1 to m do
  Read(a[i,j]);
end;
 
procedure WriteMatr(a:matr;n,m:Integer);
var i,j:Integer;
begin
for i:=1 to n do 
 begin
  for j:=1 to m do Write(a[i,j]:4);
  Writeln;
 end;
end;
 
function sumst(a:matr;j,n:Integer):Integer;
var s,i:Integer;
begin
s:=0;
for i:=1 to n do s:=s+a[i,j];
sumst:=s;
end;
 
procedure minmax(a:matr;n,m:Integer;var maxj,minj:Integer);
var j,s,min,max:Integer;
begin
min:=sumst(a,1,n);
max:=sumst(a,1,n);
maxj:=1;
minj:=1;
for j:=2 to m do
 begin
  s:=sumst(a,j,n);
  if s<min then
   begin
    min:=s;
    minj:=j;
   end;
  if s>max then
   begin
    max:=s;
    maxj:=j;
   end;
 end;
end;
 
procedure change(var a:matr;j1,j2,n,m:Integer);
var i,t:Integer;
begin
for i:=1 to n do
 begin
  t:=a[i,j1];
  a[i,j1]:=a[i,j2];
  a[i,j2]:=t;
 end;
end;
 
 
var a:matr;
n,m,min,max:Integer;
begin
Assign(input,'in.txt');
Assign(output,'out.txt');
Reset(input);
Rewrite(output);
Readln(n,m);
ReadMatr(a,n,m);
minmax(a,n,m,max,min);
change(a,1,min,n,m);
change(a,m,max,n,m);
WriteMatr(a,n,m);
end.