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

const
  N = 4;
  M = 7;
 
type
  Data = auto class
    Key, Index: integer; // Key - число (по которому сортируем); Index - индекс столбца, в котором стоит данное число.
  end;
 
var
  &Array: array [0..N - 1, 0..M - 1] of integer;
  Result: array [0..N - 1, 0..M - 1] of integer;
  DataArray: array [0..M - 1] of Data;
 
procedure Print();
begin
  Writeln('Матрица:');
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to M - 1 do
      Write(&Result[i, j]:3);
    Writeln();
  end;
end;
 
procedure Sort(l, r: integer); // Быстрая сортировка.
begin
  var i := l;
  var j := r;
  var m := DataArray[Round((l + r) / 2)].Key;
  
  repeat
    while DataArray[i].Key < m do Inc(i);
    while DataArray[j].Key > m do Dec(j);
    
    if i <= j then 
    begin
      Swap(DataArray[i], DataArray[j]); 
      Inc(i); 
      Dec(j); 
    end;
    
    if l < j then Sort(l, j);
    if i < r then Sort(i, r);
  until i > j;
end;
 
begin
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      &Array[i, j] := Random(10);
  
  for var j := 0 to M - 1 do
    DataArray[j] := new Data(&Array[0, j], j);
  
  Sort(0, M - 1);
  
  for var j := 0 to M - 1 do
    for var i := 0 to N - 1 do
      Result[i, j] := &Array[i, DataArray[j].Index];
      
  Print();
end.

const
  N = 4;
 
var
  &Array: array [0..N] of integer;
  Array2: array [0..N] of integer;
 
begin
  for var i := 0 to N do &Array[i] := Random(N);
  
  PrintLn('Исходный массив: ', &Array);
  
  for var i := 0 to N do Array2[&Array[i]] += 1;
  
  var j := 0;
  for var i := 0 to N do
    for var c := 0 to Array2[i] - 1 do
    begin
      &Array[j] := i;
      Inc(j);
    end;
  
  Print('Отсортированный массив: ', &Array);
end.