Для произвольной матрицы столбец с наименьшей суммой элементов заменить на столбец с наибольшей

Var A:array[1..20,1..20] of integer;
    i,j,n,m,jmin,jmax:byte;
    s,smin,smax:integer;
Begin
    write('Кол-во строк = ');readln(n);
    write('Кол-во столбцов = ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31);
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
     smin:=smin+A[i,1];
    jmin:=1;jmax:=1;
    smax:=smin;
    For j:=2 to m do
    Begin
      s:=0;
      For i:=1 to n do
       s:=s+A[i,j];
      if s>smax then
      Begin
        smax:=s;
        jmax:=j;
      End
      else 
      if s<smin then
      Begin
        smin:=s;
        jmin:=j;
      End;
    End;
    writeln('Столбец с min суммой = ',jmin,' там сумма = ',smin);
    writeln('Столбец с max суммой = ',jmax,' там сумма = ',smax);
    For i:=1 to n do
     A[i,jmin]:=A[i,jmax];
    writeln('Перобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
End.

uses
  crt;
 
const
  csize=10;
 
type
  tmatrix=array [1..csize,1..csize] of integer;
 
var
  arr:tmatrix;
 
procedure creatematrix;
var
  i,j:byte;
begin
  for i:=1 to csize do
    for j:=1 to csize do
      arr[i,j]:=random(100)-50;
end;
 
procedure minmaxcolumn(var min,max:byte);
var
  t,smax,smin:integer;
  i,j:byte;
begin
  smax:=0;
  for i:=1 to csize do
    smax:=smax+arr[i,1];
  max:=1;min:=1;
  smin:=smax;
  t:=0;
  for i:=2 to csize do begin
    for j:=1 to csize do
      t:=t+arr[j,i];
    if t>smax then begin
      smax:=t;
      max:=i;
    end;
    if t<smin then begin
      smin:=t;
      min:=i;
    end;
    t:=0;
  end;
  writeln('минимальная сумма : ',smin,' в столбце : ',min);
  writeln('максимальная сумма : ',smax,' в столбце : ',max);
end;
 
procedure swapcolumns;
var
  temp:integer;
  i,mn,mx:byte;
begin
  mn:=0;mx:=0;
  minmaxcolumn(mn,mx);
  for i:=1 to csize do begin
    temp:=arr[i,mn];
    arr[i,mn]:=arr[i,mx];
    arr[i,mx]:=temp;
  end;
end;
 
procedure writematrix;
var
  i,j:byte;
begin
  for i:=1 to csize do begin
    for j:=1 to csize do begin
      write(arr[i,j]:5);
    end;
    writeln;
  end;
end;
 
begin
  randomize;
  creatematrix;
  writeln('исходная матрица :');
  writematrix;
  swapcolumns;
  writeln('после обмена :');
  writematrix;
end.