Разбивка слов по гласным

        string str;
        bool mark = false;
        Edit1->Text = "";
        str = LabeledEdit1->Text.c_str();
        for(int i = 0; i<str.length();i+=2)
        {
                for(int k = 0; k<=nm; k++)
                {
                    if(slog[k].length()>0)
                    {
                        if(str.substr(i,2)==slog[k])
                        {
                                      if(mark==false)
                                      {
                                                Edit1->Text = Edit1->Text + slog[k].c_str() ; mark = true; goto next;
                                                
                                      };
 
                        }else
                        {       if(mark==true)
                                {
 
                                        mark = false;Edit1->Text = Edit1->Text + str.substr(i,1).c_str() ;i--; goto next;
 
                                };
 
                        };
                    };
                };
                next:
        };

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = Edit1->Text;
  AnsiString Delimiters = "ауоыиэяюёе";
  bool b1 = true;
  bool b2 = false;
  for(int i = 1; i < str.Length() + 1; i++)
    {
      if(str.IsDelimiter(Delimiters, i))
        {
          if((b1) && (i != str.Length()))
            {
              str.Insert("-", ++i);
              b1 = false;
            }
          b2 = false;
        }
      else
        {
          if(b2)
            str.Insert("-", i++);
          b1 = true;
          b2 = true;
        }
    }
  Edit2->Text = str;
}