Процедуры: определить столбец с наибольшей суммой и заменить на строку с наименьшей суммой элементов

program lab4_23;
 var a:array[1..100,1..100] of integer;
 m,i,j,jmx,imn,jmn:byte;
 mx,mn,sm,p1,p2,x:integer;
 begin
 write(' Введите размер матрицы m=');
 readln(m);
 writeln;
 begin
 for i:=1 to m do
 for j:=1 to m do
 begin
 write('a[',i,',',j,']=');
 readln(a[i,j]);
 end;
 writeln('Исходная матрица: ');
 for i:=1 to m do
 begin
 for j:=1 to m do
 write(a[i,j]:4);
 writeln;
 end;;
 writeln;
 end;
 writeln;
 mx:=0;
 for i:=1 to m do
 mx:=mx+a[i,1];
 jmx:=1;
 for j:=2 to m do
 begin
 sm:=0;
 for i:=1 to m do
 sm:=sm+a[i,j];
 if sm>mx then
 begin
 mx:=sm;
 jmx:=j;
 end;
 end;
 writeln(' Максимальная сумма в столбце ',jmx,' =',mx);
 mn:=0;
 for i:=1 to m do
 mn:=mn+a[1,i];
 imn:=1;
 for i:=2 to m do
 begin
 sm:=0;
 for j:=1 to m do
 sm:=sm+a[i,j];
 if sm<mn then
 begin
 mn:=sm;
 imn:=i;
 end;
 end;
 writeln(' Минимальная сумма в строке ',imn,' =',mn);
 p1:=a[imn,jmx];
 p2:=a[jmx,jmx];
 for i:=1 to m do
 begin
 x:=a[imn,i];
 a[imn,i]:=a[i,jmx];
 a[i,jmx]:=x;
 end;
 a[imn,jmx]:=p1;
 a[imn,imn]:=p2;
 writeln(' Обмен столбца ',jmx,' и строки ',imn);
 for i:=1 to m do
 begin
 for j:=1 to m do
 write(a[i,j]:4);
 writeln;
 end;
 readln
 end.

type
  tmatrix=array [1..100,1..100] of integer;
 
procedure creatematrix(var arg:tmatrix;size:byte);
var
  i,j:byte;
begin
  for i:=1 to size do begin
    for j:=1 to size do begin
      arg[i,j]:=random(31);
      write(arg[i,j]:3);
    end;
    writeln;
  end;
end;
 
function rowmin(var arg:tmatrix;var ind,size:byte):integer;
var
  sm,sum:integer;
  i,j:byte;
begin
  sum:=0;
  for j:=1 to size do begin
    sum:=sum+arg[1,j];
    ind:=1;
  end;
  for i:=2 to size do begin
    sm:=0;
    for j:=1 to size do
      sm:=sm+arg[i,j];
    if sm<sum then begin
      sum:=sm;
      ind:=i;
    end;
  end;
  rowmin:=sum;
end;
 
function columnmax(var arg:tmatrix;var ind,size:byte):integer;
var
  i,j:byte;
  sm,sum:integer;
begin
  sum:=0;
  for i:=1 to size do begin
    sum:=sum+arg[i,1];
    ind:=1;
  end;
  for j:=2 to size do begin
    sm:=0;
    for i:=1 to size do
      sm:=sm+arg[i,j];
    if sm>sum then begin
      sum:=sm;
      ind:=j;
    end;
  end;
  columnmax:=sum;
end;
 
procedure swap(var arg:tmatrix;size,i,j:byte);
var
  k,t:byte;
begin
  for k:=1 to size do begin
    t:=arg[i,k];
    arg[i,k]:=arg[k,j];
    arg[k,j]:=t;
  end;
end;
 
var
  a:tmatrix;
  m,i,j:byte;
  min,max:integer;
 
begin
  randomize;
  write(' Введите размер матрицы m=');
  readln(m);
  writeln;
  writeln('Исходная матрица: ');
  creatematrix(a,m);
  writeln;
  min:=rowmin(a,i,m);
  writeln(' Минимальная сумма в строке ',i,' = ',min);
  max:=columnmax(a,j,m);
  writeln(' Максимальная сумма в столбце ',j,' = ',max);
  swap(a,m,i,j);
  writeln;
  for i:=1 to m do begin
    for j:=1 to m do
      write(a[i,j]:3);
    writeln;
  end;
  readln
end.