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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,k:byte;
    mx,x:real;
begin
clrscr;
randomize;
repeat
write('Количество строк от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов от 1 до ',nmax,'=');
readln(m);
until m in [1..nmax];
{вычисление максимальных в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  for j:=1 to m do
  a[i,j]:=10*random;
  mx:=a[i,1];
  for k:=1 to m do
  if a[i,k]>mx then mx:=a[i,k];
  a[i,m+1]:=mx;
 end;
writeln('Исходная матрица:');
writeln('Макс.':(m*5+9));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:2)
  else write(a[i,j]:5:2);
  writeln;
 end;
{перестановка строк по неубыванию максимального элемента)}
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i,m+1]<a[k,m+1] then
for j:=1 to m+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[k,j];
  a[k,j]:=x;
 end;
writeln('Строки по убыванию макс.:');
writeln(' Макс.':(m*5+9));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:2)
  else write(a[i,j]:5:2);
  writeln;
 end;
readln
end.