Вычислить сумму элементов каждого столбца матрицы и поменять местами столбцы с наибольшей и наименьшей суммой - Turbo Pascal - Ответ 4008408

const n  = 5;
         m = 5;
type matrix = array[1..n,1..m] of integer;
        mass = array[1..m] of longint;
var a : matrix;
      b : mass;
      c : mass;
      max,min :                  longint;
      i,j,rmax,rmin :            byte;
 
procedure ShowMatrix(a : matrix); begin
    var i,j : byte;
    for i:=1 to n do begin
        for j:=1 to m do 
            write(a[i,j]:4,' ');
        writeln;
    end;
end;
 
procedure SumOfMatrixRows(a : matrix; var b : mass); begin
   var i,j : byte;
   for i:=1 to n do begin
     for j:=1 to m do begin
         b[j] := b[j]+a[i,j];
     end;
   end;
end;
 
begin
   randomize();
   for i:=1 to n do
     for j:=1 to m do 
         a[i,j] := random(40);
   
   ShowMatrix(a);
   SumOfMatrixRows(a,b);
   
   for i:=1 to n do
        writeln('Sum of ',i,'-row is: ',b[i]);
   max := b[1]; rmax := 1;
   min := b[1]; rmin := 1;
   for i:=1 to n do begin
       if (b[i]>max) then begin
            max:=b[i];
            rmax:=i;
       end;
       if (b[i]<min) then begin
            min:=b[i];
            rmin:=i;
       end;
    end;
    writeln('max sum is: ',max,' in ',rmax,'-row');
    writeln('min sum is: ',min,' in ',rmin,'-row');
        
    for j:=1 to m do begin
         for i:=1 to n do begin
               if (j=rmin) then begin
                    c[i] := a[i,j];
                    a[i,j] := a[i,rmax];
               end;
          end;
     end;
     for j:=1 to m do begin
         for i:=1 to n do begin
              if (j=rmax) then begin
                 a[i,j] := c[i];
              end;
         end;
     end;
    ShowMatrix(a);
    readln;
end.