Упорядочить слова в предложении

//------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int kolprobelov;
int numedit;
char ch[19] = {'b', 'c', 'd', 'f', 'g', 'h', 'k', 'l', 'm', 'n',
               'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'z'};
char glac[7] = {'a', 'e', 'i', 'j', 'o', 'u', 'y'};
//------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   AnsiString tempword1;
   char *tempword2;
   kolprobelov = 0;
   AnsiString str = Edit1->Text;
   // Удаляем точку
   str.Delete(Edit1->Text.Length(), 1);
   // Ставим в конце предложения пробел
   str.Insert(" ", Edit1->Text.Length());
   // Определение количества пробелов
   for (int i = 1; i <= Edit1->Text.Length(); i++)
   {
      if (str == ' ')
         kolprobelov += 1;
   }
   // Динамическое создание компонентов под слово
   numedit = 3;
   for (int i = 0; i < kolprobelov; i++)
   {
      TEdit *edit = new TEdit(this);
      edit->Parent = this;
      edit->Name = "edit"+AnsiString(numedit);
      edit->Height = 21;
      edit->Width = 121;
      edit->Left = 448;
      edit->Top = (i+10)*edit->Height;
      edit->Text = "";
      numedit += 1;
   }
   // Разбиваем предложение на слова
   numedit = 3;
   for (int i = 1; i <= str.Length(); i++)
   {
      AnsiString word = "";
      if (str == ' ')
      {
         for (int j = 1; j < i; j++)
            word += str[j];
         TEdit *edit = (TEdit*)FindComponent("edit"+AnsiString(numedit));
         edit->Text = word;
         numedit += 1;
         str.Delete(1, i);
         i = 1;
      }
   }
   // Редактирование предложения
   numedit = 3;
   char *symbols = new char [kolprobelov];
   for (int i = 0; i < kolprobelov; i++)
   {
      tempword1 = "";
      TEdit *edit = (TEdit*)FindComponent("edit"+AnsiString(numedit));
      tempword1 = edit->Text;
      tempword2 = tempword1.c_str();
      symbols = tempword2[0];
      numedit++;
   }
   // Сортировка
   int k, x;
   for( int i = 0; i < kolprobelov; i++)
   {     // i - номер текущего шага
      k = i;
      x = symbols;
      for ( int j = i+1; j < kolprobelov; j++)  // цикл выбора наименьшего
                                                             элемента
      {
         if (  symbols[j] < x )
         {
           k = j;
           x = symbols[j];         // k - индекс наименьшего элемента
         }
      }
      symbols[k] = symbols;
      symbols = x;      // меняем местами наименьший с symbols
   }
   // Вывод
   for (int i = 3; i < kolprobelov+2; i++)
   {
      TEdit *edit = (TEdit*)FindComponent("edit"+AnsiString(i));
      tempword1 = edit->Text;
      char *tempword2 = tempword1.c_str();
      for (int j = 0; j < 7; j++)
      {
         if (tempword2[0] == symbols)
           Memo1->Lines->Add(edit->Text);
      }
   }
   for (int i = 3; i < kolprobelov+2; i++)
   {
       TEdit *edit = (TEdit*)FindComponent("edit"+AnsiString(i));
      tempword1 = edit->Text;
      char *tempword2 = tempword1.c_str();
      for (int j = 0; j < 19; j++)
      {
         if (tempword2[0] == symbols)
           Memo1->Lines->Add(edit->Text);
      }
   }
}
//------------------------------------------------------------------------
// Удаление слов
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   numedit = 3;
   for (int i = 0; i < kolprobelov; i++)
   {
      TEdit *edit = (TEdit*)FindComponent("edit"+AnsiString(numedit));
      delete edit;
        numedit +=1;
   }
}
//------------------------------------------------------------------------