Упорядочить строки матрицы по убыванию

uses crt;
const nmax=20;
var a:array[1..15,1..20] of integer;
    m,n,i,j,k,p,imax:byte;
    buf:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
write('Выберите строку для сортировки от 1 до ',m,' k=');
readln(k);
until k in [1..m];
for j:=1 to n-1 do{идем по строке К не до конца}
  begin
   imax:=j;
   for p:=j+1 to n do{смотрим впереди}
   if a[k,p]>a[k,imax] then imax:=p;{если есть элемент меньше}
   for i:=1 to m do{по всем строкам}
    begin
     buf:=a[i,j];
     a[i,j]:=a[i,imax];{обмениваем найденный элемент с тем что сравнивали}
     a[i,imax]:=buf;
    end;
  end;
writeln('Столбцы упорядочены по убыванию элементов строки ',k);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln;
end.

const
  m = 5;
  n = 5;
begin
  Write('Введите все значения элементов матрицы через пробел: ');
  var x := ReadMatrInteger(m,n);
  WriteLn('Исходная матрица:'); x.Println;
  for var Row := 0 to m-1 do
    begin
      var sr := x.Row(Row).Sorted.Reverse.ToArray;
      for var Col := 0 to n-1 do x[Row, Col] := sr[Col];
    end;
  WriteLn('Преобразованная матрица:'); x.Println;
end.

const
  m = 5;
  n = 5;
begin
  Write('Введите все значения элементов матрицы через пробел: ');
  var x := ReadMatrInteger(m,n);
  WriteLn('Исходная матрица:'); x.Println;
  
  for var i := 0 to Pred(x.RowCount) do x.SetRow(i, x.Row(i).SortedDescending.ToArray);
  // или вообще вот так: x.Rows.ForEach(procedure(r, i) -> x.SetRow(i, r.SortedDescending.ToArray));
  
  WriteLn('Преобразованная матрица:'); x.Println;
end.

const n=20;m=15;
var
  a:array[1..n,1..m] of integer;
  i,j,t,l:integer;
begin
  randomize;
  writeln('Matrix:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100)-50;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do begin
    for l:=1 to m-1 do
    for j:=l+1 to m do
     if a[i,l]<a[i,j] then begin
       t:=a[i,l];a[i,l]:=a[i,j];a[i,j]:=t;
     end;
  end;
  writeln('New Matrix:');
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:4);
    writeln;
  end;
readln
end.