сортировка строк

void __fastcall TForm1::Button1Click(TObject *Sender)
{int a[100];
int i,j,max,b,mini;
for(i=1;i<=Edit1->Text.Length();i++)
a[i]=StrToInt(Edit1->Text[i]);
 
 
for(i=1;i<=10;i++)
{ max=a[i];
for(j=i;j<=10;j++)
if (a[j]>max) {max=a[j];mini=j;}
b=a[i];a[i]=max;a[j]=b;
}
Edit1->Text="";
for(i=1;i<=10;i++)
Edit1->Text=Edit1->Text+IntToStr(a[i]);
 
}

    int a[100];
    int i,j,max,b,mini;
    int count = Edit_2->Text.Length();
 
    for (i=1; i<=count; i++)
        a[i-1] = StrToInt (Edit_2->Text[i]);
 
    for(i=0; i<count; i++)
    {
        max = a[i];
        mini = i;
        for(j=i; j<count; j++)
        {
            if (a[j] > max)
            {
                max = a[j];
                mini = j;
            }
        }
        b = a[i];
        a[i] = max;
        a[mini] = b;
    }
    Edit_2->Text = "";
    for (i=0; i<count; i++)
        Edit_2->Text = Edit_2->Text + IntToStr(a[i]);

int a[100];
 int i=0;
 while (Edit1->Text.Pos(" ")!=0){
    a[i]=StrToInt(Edit1->Text.SubString(1,Edit1->Text.Pos(" ")-1));
    Edit1->Text=Edit1->Text.SubString(Edit1->Text.Pos(" ")+1,Edit1->Text.Length()-Edit1->Text.Pos(" "));
    i++;
 }
 if (!Edit1->Text.IsEmpty()) a[i]=StrToInt(Edit1->Text);
 
 Edit1->Text="";

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i, j, k, x, a[3];
for( i=0; i<= StringGrid1->ColCount; i++) { // i - номер текущего шага
k=i; x=a[i];
for( j=i+1; j<=StringGrid1->RowCount; j++) // цикл выбора наименьшего элемента
if ( a[j] < x ) {
k=j; x=a[j]; // k - индекс наименьшего элемента
}
a[k] = a[i]; a[i] = x; // меняем местами наименьший с a[i]
}
}