Матрица. Поменять местами столбцы с максимальной и минимальной суммой элементов

uses crt;
var n, m, i, j, s, max, min, min_j, max_j: integer;
    a: array [1..100, 1..100] of integer;
procedure form;
begin
     for i:=1 to n do
         for j:=1 to m do a[i,j]:=random (20);
end;
procedure vivod;
begin
     for i:=1 to n do begin
         for j:=1 to m do write (a[i,j]:3, ' ');
         writeln end;
end;
begin
clrscr;
     randomize;
     write ('vvedi n i m: '); readln (n, m);
     form;
     vivod;
     for j:=1 to m do begin
         s:=0;
         for i:=1 to n do s:=s+a[i,j];
         if (j=1) or (s<min) then begin min:=s;
                                        min_j:=j; end;
         if (j=1) or (s>max) then begin max:=s;
                                        max_j:=j; end; end;
     for i:=1 to n do begin
         a[i,max_j]:=a[i,max_j]+a[i, min_j];
         a[i,min_j]:=a[i,max_j]-a[i,min_j];
         a[i,max_j]:=a[i,max_j]-a[i,min_j]; end;
     writeln ('max summa v ',max_j, ' stolbce, min summa v ', min_j, ' stolbce');
     vivod;
readkey;
end.