Отсортировать матрицу в порядке убывания

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;

{сортировка матрицы по возрастанию пузырьком по строкам}
for k:=1 to n*m do  {повторяем сколько элементов в матрице}
for i:=1 to n do
for j:=1 to m do
   begin
    if j<>m then {если элемент в строке не последний}
      begin
       if a[i,j+1]<a[i,j]
       then Swap(a[i,j+1],a[i,j]){обмен элементов}
      end
    else
     if (a[i+1,1]<a[i,j])and(i<>n) {если строка не последняя}
     {меняем первый элемент в следущей строке с последним элементом в текущей строке}
     then Swap(a[i+1,1],a[i,j]);
   end;

procedure Swap(var a,b:real); {процедура обмена двух элементов}
var tmp:real;
begin
tmp:=a;
a:=b;
b:=tmp;
end;

for i:=1 to k do
for j:=1 to n-1 do
if marks[i,j]>marks[i,j+1] then begin
c:=marks[i,j];
marks[i,j+1]:=marks[i,j];
marks[i,j]:=c; end;

var k,i,n,j,c,z:integer; marks:array[1..100,1..50] of integer;
min,max,dif,difm:array[1..100] of integer;
 
procedure Swap(var a,b:real);
var tmp:real;
begin
tmp:=a; a:=b; b:=tmp;
end;
begin
readln(k);
for i:=1 to k do begin
read(n);  min[i]:=100;
for j:=1 to n do begin
read(marks[i,j]);
if marks[i,j]>max[i] then max[i]:=marks[i,j];
if marks[i,j]<min[i] then min[i]:=marks[i,j]; end;  end;
 
for i:=1 to k*n do
for z:=1 to k do
for j:=1 to n do
begin if j<>k then begin
if marks[z,j+1]<marks[z,j] then Swap(marks[z,j+1],marks[z,j]) end else
if (marks[z+1,1]<marks[z,j]) and (z<>n) then Swap(marks[i+1,1],marks[z,j]);
 
for i:=1 to k do
difm[i]:=1;
for j:=1 to n-1 do
dif[j]:=abs(marks[i,j]-marks[i,j+1]);
if difm[i]<dif[j] then difm[i]:=dif[j];
for i:=1 to k do begin writeln('Class ',i);
writeln('Max ',max[i],', Min ',min[i],', Largest gap ',difm[i]); end;
readln; readln;
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,k:byte;
    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];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
{перестановка строк по неубыванию элементов 2 столбца)}
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i,2]>a[k,2] 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('Строки по неубыванию элементов 2 столбца:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..3] of integer;
    k:array[1..nmax] of string;
    n,i,j,p,x:integer;
    s:string;
begin
clrscr;
repeat
write('Количество классов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  str(i,s);
  k[i]:='Класс '+s;
  {k[i]:='Класс '+IntToStr(i); по идее так, но у меня не работает}
 end;
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln(k[i]);
  write('макс. оценка=');
  readln(a[i,1]);
  write('мим. оценка=');
  readln(a[i,2]);
  a[i,3]:=a[i,1]-a[i,2];
 end;
{сортировка по неубыванию}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,2]>a[j,2] then
 begin
  s:=k[i];
  k[i]:=k[j];
  k[j]:=s;
  for p:=1 to 3 do
   begin
    x:=a[i,p];
    a[i,p]:=a[j,p];
    a[j,p]:=x;
   end;
 end;
for i:=1 to n do
 begin
  write(k[i]);
  for j:=1 to 3 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.