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

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <dstring.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
// ïðîâåðÿåò íà ãëàñíûå
bool glasn(char *s)
{
        int i;
        char v[] = "aoiue";     //ìàññèâ ãëàñíûõ
        for (i = 0; i < 6; i++)
                if (strchr(v, s[i]))       //  strchr - ïðîâåðÿåò ñëîâî íà
                        return true;       //  íàëè÷èå ãëàññíûõ
        return false;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString text;
AnsiString slovo;
char a[40][6];        // â ñòðîêå 40 ñèìâîëîâ ïî 6 ñëîâ
 
    text=Edit1->Text;
    if ( int m=text.Pos('.'))  //ïðîâåðêà íà òî÷êó
     {
    int  i=0;
   int p=text.Pos(' ');
    while (p!=0)
      {
      slovo=text.SubString(1,p-1);       // êîïèðîâàíèå ÷àñòè ñòðîêè
      strncpy(a[i], slovo.c_str(), 6);  //slovo.c_str() - ïðåîáðàçîâàíèå ñòðîêè
      i++;                               // â íóëüòåðìèíàëüíóþ
      text.Delete(1,p);
      p=text.Pos(' ');       // pos - ïîèñê
      }
    text.Delete(text.Length(),1);
    strncpy(a[i],text.c_str(),6);    // strncpy - êîïèðóåò
    Edit2->Text="";
 
    for (int k=1; k<i ;k++)
    if (!strcmp(a[k],a[0]) && glasn(a[k])) // ïðîâåðêà ïåðâîãî ñëîâà è ãëàñíûõ
   Edit2->Text = Edit2->Text+' '+a[k];  // strcmp - îäèíàêîâûå ñòðîêè
     }
     else ShowMessage ("íåò òî÷êè");
}

text.Delete(1,p);

text = text.Delete(1,p);

char a[40][6];        // в строке 40 символов по 6 слов

TStringList *sl;
sl = new TStringList();

strncpy(a[i], slovo.c_str(), 6);

sl->Strings[i] = slovo;

 if (!strcmp(a[k],a[0]))

if(sl->Strings[k] != sl->Strings[0])

for (int k=1; k<i ;k++){
   if (!strcmp(a[k],a[0]) && glasn(a[k])) 
   Edit2->Text = Edit2->Text+' '+a[k];  
   }