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

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.