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

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
float **X;
int n,m;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,j,h,p; bool fl;
int max, min;
 fl=true;
X= new float*[n];
for(i=0;i<n;i++)
X[i]= new float[m];
for(i=0;i<n;i++)
for(j=0;j<m;j++)
X[i][j]=StrToFloat(StringGrid1->Cells[i][j]);
for(i=0;i<n;i++)
if (!fl) break;
else
    {
        for(h=0;h<m;h++)
        {
        max=X[0][0];
        min=X[0][0];
        p=0;
        for(j=0;j<m;j++)
           {
             if (X[0][j]<min)
             {
             min=X[0][j];
             p=j;
             }
             if (X[0][j]>max) max=X[0][j];
           }
        for(i=0;i<n-1;i++)
        StringGrid1->Cells[p][i]=FloatToStr(X[p][i]);
    }
}
 
for(i=0;i<n;i++)
delete [m]X;
delete [n]X;
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 for(int i = 0; i < StringGrid1->RowCount; i++)
StringGrid1->Rows[i]->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->ColCount=n;
StringGrid1->RowCount=m;
}
//---------------------------------------------------------------------------