Строки. Определить длину строки, слова, количество гласных

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Memo1->Text = AnsiString("Дан текст. Определить длину каждой строки;") +
    "\r\nдлину максимального слова в строке;" +
      "\r\nколичество гласных букв в строке." +
        "\r\nдля данной программы форма все готова" +
          "\r\nосталось код набирать ...";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int str_length;
  int max_word;
  int str_number_vowels;
  char mas[10] = {'а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'};
  AnsiString text;
  for(int i = 0; i < Memo1->Lines->Count; i++)
    {
      str_length = Memo1->Lines->Strings[i].Length();
      text += "Длина строки " + IntToStr(i + 1) + " равна " + IntToStr(str_length);
      int temp = 0;
      max_word = 0;
      for(int j = 0; j < str_length; j++)
        {
          if(Memo1->Lines->Strings[i][j + 1] != ' ')
            temp++;
          else
            {
              if(temp > max_word)
                max_word = temp;
              temp = 0;
            }
        }
      text += ", длина макс. слова: " + IntToStr(max_word);
      str_number_vowels = 0;
      for(int j = 0; j < str_length; j++)
        for(int g = 0; g < 10; g++)
          if(Memo1->Lines->Strings[i][j + 1] == mas[g])
            str_number_vowels++;
      text += ", количество гласных букв: " + IntToStr(str_number_vowels) + "\n";
    }
  ShowMessage(text);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(Memo1->Lines->Count == 0)
    return;
  int str_length;
  int max_word;
  int str_number_vowels;
  char mas[10] = {'а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'};
  AnsiString text;
  for(int i = 0; i < Memo1->Lines->Count; i++)
    {
      str_length = Memo1->Lines->Strings[i].Length();
      text += "Длина строки " + IntToStr(i + 1) + " равна " + IntToStr(str_length);
      int temp = 0;
      max_word = 0;
      for(int j = 0; j < str_length; j++)
        {
          if(Memo1->Lines->Strings[i][j + 1] != ' ')
            temp++;
          else
            {
              if(temp > max_word)
                max_word = temp;
              temp = 0;
            }
        }
      if(temp > max_word)
        max_word = temp;
      text += ", длина макс. слова: " + IntToStr(max_word);
      str_number_vowels = 0;
      for(int j = 0; j < str_length; j++)
        for(int g = 0; g < 10; g++)
          if(Memo1->Lines->Strings[i][j + 1] == mas[g])
            str_number_vowels++;
      text += ", количество гласных букв: " + IntToStr(str_number_vowels) + "\n";
    }
  ShowMessage(text);
}