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

[Андрей_Андрей]

Упорядочить строки матрицы по возрастанию их первых элементов. Написал программу но в самом главном запутался. Помогите пожалуйста.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
 int maxl,l,k,n,i,j,A[100][100];
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 j=0;
 for (i=0; i<4; i++)
 {
  StringGrid1->Cells[i][0]=("x["+IntToStr(i)+"]");
  StringGrid1->Cells[0][j]=("y["+IntToStr(i)+"]");
  StringGrid2->Cells[i][0]=("x["+IntToStr(i)+"]");
  StringGrid2->Cells[0][j]=("y["+IntToStr(i)+"]");
  j++;
 }
 StringGrid1->Cells[0][0]=("Массив А");
 StringGrid2->Cells[0][0]=("Массив B");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 k=StrToInt(Edit1->Text);
 n=StrToInt(Edit2->Text);
 StringGrid1->RowCount=k+1;
 StringGrid1->ColCount=n+1;
 StringGrid2->RowCount=k+1;
 StringGrid2->ColCount=n+1;
 for (i=1; i<=k; i++)
  {
   StringGrid1->Cells[0][i]=("y["+IntToStr(i)+"]");
   StringGrid2->Cells[0][i]=("y["+IntToStr(i)+"]");
  }
 for (j=1; j<=n; j++)
 {
  StringGrid1->Cells[j][0]=("x["+IntToStr(j)+"]");
  StringGrid2->Cells[j][0]=("x["+IntToStr(j)+"]");
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int min,max,max_i,min_i;   //главная часть программы
k=StrToInt(Edit1->Text);
n=StrToInt(Edit2->Text);
for (i=0; i<=k; i++)
for (j=0; j<=n; j++)
A[i][j]=StrToInt(StringGrid1->Cells[i+1][j+1]);
for (i=0; i<=k; i++)
{
 max=A[i][0];
 int maxl=i;
}
for (int l=i+1; i<n; i++)
{
 if (A[l][0]>max)
 {
 max=A[l][0];
 maxl=l;
 }
}
for (j=0; j<=n; j++)
StringGrid2->Cells[i+1][j+1]=(IntToStr(A[maxl][j]));
}
//---------------------------------------------------------------------------

[Krok27]

При быстром просмотре, не вникая в алгоритм косяк:

for (i=0; i<=k; i++)
{
 max=A[i][0];
 int maxl=i;
}

Че это вы тут присавиваете?

int maxl=i;

Локальной перменной, она уничтожится (вытолкнется из стека) при завершении цикла. Этот код не имеет смысла.

StringGrid1->Cells[0][0]=("Массив А");
 StringGrid2->Cells[0][0]=("Массив B");

Два раза присваиваете ячейке с одним и тем же номером разные значения, надо определиться.