Упорядочить строки в матрице по возрастанию их первых элементов

int n=5,m=5,k,i,j;
double **a, b;
a = new double *[n];
for(i=0; i<n; i++)
    a[i] = new double[m];
for(i=0; i<n; i++)
    for(j=0; j<m; j++){
a[i][j]=StrToFloat(StringGrid1->Cells[i][j]);}
    for(i=0; i<n-1; i++){
        for(k=0; k<n-1; k++){
            if(a[k][0]>a[k+1][0]){
            for(j=0; j<m; j++){
            b=a[k][j];
            a[k][j]=a[k+1][j];
            a[k+1][j]=b;
            }
        }
    }
}
for(i=0; i<n; i++)
{
    for(j=0; j<m; j++)
    StringGrid1->Cells[i][j]=FloatToStr(a[i][j]);
}
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
int n=5,m=5,k,i,j;
double **a, b;
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
 int i;
 n=StrToInt(Edit1->Text);
 m=StrToInt(Edit2->Text);
 StringGrid1->ColCount=n+1; StringGrid1->RowCount=m+1;
 for(int i=1; i<n; i++){
 StringGrid1->Cells[0][i]="i="+IntToStr(i);
 StringGrid1->Cells[i][0]="j="+IntToStr(i);
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Edit1->Text=IntToStr(n);
 Edit2->Text=IntToStr(m);
 StringGrid1->ColCount=n+1;
 StringGrid1->RowCount=m+1;
 }
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int i,j;
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
a = new double *[n];
for(i=0; i<n; i++)
    a[i] = new double[m];
for(i=0; i<n; i++)
    for(j=0; j<m; j++){
a[i][j]=StrToFloat(StringGrid1->Cells[i][j]);}
    for(i=0; i<n-1; i++){
        for(k=0; k<n-1; k++){
            if(a[k][0]>a[k+1][0]){
            for(j=0; j<m; j++){
            b=a[k][j];
            a[k][j]=a[k+1][j];
            a[k+1][j]=b;
            }
        }
    }
}
for(i=0; i<n; i++)
{
    for(j=0; j<m; j++)
    StringGrid1->Cells[i][j]=FloatToStr(a[i][j]);
}
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}