Найти сумму каждого столбца матрицы и поменять столбцы местами по возрастанию их суммы

const
  n = 10;
  m = 8;
 
var
  arr: array[1..n,1..m] of integer;
  sum: array[1..m] of integer;
  min, k, tmp: integer;
 
begin
  writeln('Исходный массив:');
  for var i := 1 to n do
  begin
    for var j := 1 to m do
    begin
      arr[i,j] := random(-100, 100);
      write(arr[i,j]: 5);
      sum[j] += arr[i,j];
    end;
    writeln;
  end;
  
  for var i := 1 to m do
  begin
    min := 100;
    for var j := i to m do
      if sum[j] < min then begin min := sum[j]; k := j; end;
    tmp := sum[i];
    sum[i] := sum[k];
    sum[k] := tmp;
    for var j := 1 to n do
    begin
      tmp := arr[j,i];
      arr[j,i] := arr[j,k];
      arr[j,k] := tmp;
    end;
  end;
  
  writeln('Изменённый массив:');
  for var i := 1 to n do
  begin
    for var j := 1 to m do
      write(arr[i,j]: 5);
    writeln;
  end;
end.