Как осуществить сортировку выше побочной диагонали по убыванию?

Program KK;
Uses Crt;
Type
strmenu=record 
x: integer; 
s: string[14]; 
end;
Const
kol=4;
mas:array[1..kol] of strmenu=
((x:6; s:'Ввод данных'),
(x:20; s:'Сортировка'),
(x:35; s:'Вывод данных'),
(x:53; s:'Выход'));
Var
t: integer;
i: integer;
n: integer; 
ch: char;
a:array[1..10,1..10] of integer;
procedure InputDan;
var
n:byte;
i,j:byte;
label M1;
begin
clrscr;
writeln ('1.Ручной ввод');
writeln ('2.Автоматический ввод');
writeln ('3.Выход в меню');
M1: writeln ('Введите пункт меню');
readln (n);
case n of
1:begin
writeln ('Введите элементы массива');
for i:=1 to 10 do
for j:=1 to 10 do
begin
write ('A[',i,',',j,']=');
readln( a [i,j]);
end;
end;
2: begin
writeln('Автоматический ввод элементов массива');
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
a [i,j]:=random (100);
end;
3:Exit;
else
goto M1
end;
end;
procedure SortDan;
var
i,j,o:integer;
begin
for j:=1 to 1 do begin 
i:=10; 
o:=a[i,j]; 
a[i,j]:=a[j,i]; 
a[j,i]:=o; 
writeln(' ');
writeln(' ');
if o=0 then writeln('Сортировка не выполненна так как не были введенны данные') else writeln('Сортировка выполненна');
end;
readln;
end;
procedure OutputDan;
var
i,j:integer;
begin
writeln(' '); 
writeln(' '); 
writeln('Преобразованная матрица');
writeln(' '); 
for i:=1 to 10 do begin 
for j:=1 to 10 do begin 
write(a[i,j],' '); 
if (j=10) then writeln(' '); 
end;
end;
writeln(' '); 
writeln('Вывод элементов заканчивающихся на 3:');
writeln(' '); 
for i := 1 to 10 do
for j := 1 to 10 do
if a[i,j] mod 10 = 3 then write(a[i,j]:4);
readln;
 
 
// **********************************************
 
 
writeln('Сортировка выше побочной диагонали по убыванию:');
var     
t: integer;
for i:=2 to 10 do
for j:=10 downto i do
begin
if a[j,10-j+1]<a[j-1,10-j+2] then
t:=a[j,10-j+1];
a[j,10-j+1]:=a[j-1,10-j+2];
a[j-1,10-j+2]:=t;
end;
end;
writeln(' :');
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readln;
end;
 
 
// **********************************************
 
 
Begin
n:=1;
repeat 
TextColor (15);
TextBackground (0);
clrscr;
for i:=1 to kol do
begin
gotoxy(mas[i].x,3);
write(mas[i].s);
end;
TextColor (15);
TextBackground (green);
gotoxy(mas[n].x,3);
write (mas[n].s); 
ch:=readkey; 
if ch in ['1','2','3','4'] then n := ord(ch) - ord('0');
case ch of 
#13: case n of 
1: InputDan; 
2: SortDan; 
3: OutputDan;
4: break;
end;
#0:begin
ch:=readkey;
case ch of 
#39:
if n<kol then
n:=n+1
else
n:=1;
#37:
if n>1 then
n:=n-1
else
n:=kol;
end;
end;
end;
until(ch= #77)and(n=4)or(ch= #75);
TextColor (15);
TextBackground (0);
clrscr;
end.