Упорядочить по убыванию побочную диагональ матрицы.

[vadiprog]

Упорядочить по убыванию побочную диагональ матрицы.
Напишите пожалуйста программу на Делфи.

[vadiprog]

Вот начало написал, рэндомно записывает массив, добавьте сортировку пожалуйста

var
 A:array[1..1000,1..1000] of integer;
 i,j,n,m:integer;
begin
 readln(n,m);
Randomize;
  writeln('Masiv:');
  for i:=1 to n do begin
   for j:=1 to m do begin
   A[i,j]:=random(100);
   write(' ',A[i,j]:2);
   end;
   writeln;
  end;

[<- DelpHIFanat ->]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
  N0=100;

Var
  A: Array[0..N0-1, 0..N0-1] Of Integer;
  Mas: Array[0..N0-1] Of Integer;
  M: Integer;
  i, j, k, N: Byte;

begin

  Repeat
    Write(' N = ');
    ReadLn(N);
  Until (N In [1..100]);

  k:=0;
  Randomize;
  For i:=0 To N-1 Do
    Begin
      For j:=0 To N-1 Do
        Begin
          A[i, j]:=Random(100);
          Write(' ', A[i, j]: 3);
          If (i+j=N-1) Then
            Begin
              Mas[k]:=A[i, j];
              Inc(k);
            End;
        End;
      WriteLn;
    End;

  For i:=0 To N-2 Do
    For j:=i+1 To N-1 Do
      If (Mas[i]<Mas[j]) Then
        Begin
          M:=Mas[i];
          Mas[i]:=Mas[j];
          Mas[j]:=M;
        End;

  WriteLn;
  WriteLn('-------------------------------');
  WriteLn;

  j:=N-1;
  For i:=0 To N-1 Do
    Begin
      A[i, j]:=Mas[j];
      Dec(j);
    End;

  For i:=0 To N-1 Do
    Begin
      For j:=0 To N-1 Do
        Write(' ', A[i, j]: 3);
      WriteLn;
    End;

  ReadLn;
end.

Вот прога, но сортировать массивы, научиться всё-таки придётся.