Написать программу, сортирующую по убыванию побочную диагональ двумерного массива целых чисел.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n;
double **a;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
Edit1->Text=IntToStr(4);
        StringGrid1->ColCount = n+1;        StringGrid1->RowCount = n+1;
        StringGrid1->Cells[0][0] = "Матрица A";
         for(int i=1; i<=n;i++){
         StringGrid1->Cells[0][i]="i="+IntToStr(i);
         StringGrid1->Cells[i][0]="j="+IntToStr(i);
         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double t;
int i,j,ni,nj;
a=new double *[n];
for(i=0; i<n; i++) a[i]=new double[n];
for(i=0; i<n;i++)
 {
  for(j=0; j<n;j++)
    a[i][j]=StrToFloat(StringGrid1->Cells[j+1][i+1]);
 }
t=a[n-1][n-1]; ni=n-1; nj=n-1;
for(i=0;i<n;i++)
 for(j=n-1;(n-j)<(i+1);j--)
  if (a[i][j]>t) {
                  t=a[i][j];
                  ni=i;
                  nj=j;
                 }
Memo1->Lines->Add("Максимальный элемент = "+FloatToStr(t)
+ "; index i="+IntToStr(ni+1)+" j="+IntToStr(nj+1));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
        int i;
        n=StrToInt(Edit1->Text);
        StringGrid1->ColCount = n+1;        StringGrid1->RowCount = n+1;
        for(i=1; i<=n;i++){
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
                           }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i;
      for(i=0; i<n; i++) delete []a[i];
      delete []a;
      ShowMessage("Память освобождена!");
      Close();
}
//---------------------------------------------------------------------------