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

program Project1;
uses
  crt;
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.

program Project1;
uses  crt;
const  N0=100;
Var A: Array[1..N0, 1..N0] Of Integer;
    M: Integer;
    i, j, k, N: Byte;
begin
Repeat
Write(' N = ');
Read(N);
Until (N In [1..100]);
Randomize;
For i:=1 To N Do
 Begin
  For j:=1 To N Do
   Begin
    A[i, j]:=Random(100);
    Write(A[i, j]:4);
   End;
  WriteLn;
 End;
writeln;
For i:=1 To N-1 Do
For j:=i+1 To N Do
if (A[i,n-i+1]<A[j,n-j+1]) Then
 Begin
  M:=A[i,n-i+1];
  A[i,n-i+1]:=A[j,n-j+1];
  A[j,n-j+1]:=M;
 End;
For i:=1 To N Do
 Begin
  For j:=1 To N Do
  Write(A[i, j]:4);
  WriteLn;
 End;
end.