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

procedure InputArray(var a : array [,] of Real);
begin
  for var Row := 0 to a.GetLength(0)-1 do
    for var Col := 0 to a.GetLength(1)-1 do
      a[Row, Col] := ReadLnReal('a[' + Row + ',' + Col + '] =');
end; 
 
procedure Swap(var a : array [,] of Real; Col0, Col1 : Integer);
begin
  for var Row := 0 to a.GetLength(0)-1 do Swap(a[Row, Col0], a[Row, Col1]);
end;
 
procedure shuffle(var a : array [,] of Real);
begin
  var s : array of Real;
  SetLength(s, a.GetLength(1));
  for var Col := 0 to a.GetLength(1)-1 do
    begin
      s[Col] := Real.MinValue;
      for var Row := 0 to a.GetLength(0)-1 do s[Col] := max(s[Col], a[Row, Col]);
    end;
    
  for var Col := a.GetLength(1)-1 downto 1 do
    begin
      var ColMax := Col;
      for var ColCompare := Col - 1 downto 0 do if s[ColCompare] > s[ColMax] then ColMax := ColCompare;
      if ColMax < Col then
        begin
          Swap(s[Col], s[ColMax]);
          Swap(a, Col, ColMax);
        end;
    end;
end;
 
begin
  var a : array [,] of Real;
  SetLength(a, ReadLnInteger('   Количество строк массива: N ='), ReadLnInteger('Количество столбцов массива: M ='));
  InputArray(a);
  WriteLn('Введена матрица:');
  for var Row := 0 to a.GetLength(0)-1 do
    begin
      for var Col := 0 to a.GetLength(1)-1 do Write(a[Row, Col]:8:4);
      WriteLn;
    end;
  shuffle(a);
  WriteLn('Изменённая матрица:');
  for var Row := 0 to a.GetLength(0)-1 do
    begin
      for var Col := 0 to a.GetLength(1)-1 do Write(a[Row, Col]:8:4);
      WriteLn;
    end;
end.