подсчет гласных букв в слове

[santafer]

вводится число в Edit он ищет слова под этим номером нужно чтобы . программа подсчитала в этом слове количество гласных букв ...

begin
fin:=TStringList.Create;
fin.LoadFromFile('fin.txt'); //подгружаем строки из файла. Файл в каталоге с программой
fin.Delimiter :=' '; //разделитель слов - пробел
fin.DelimitedText :=fin.Text; //разбиваем текст из файла на слова
for i := 0 to fin.Count-1 do //цикл
  if StrToInt(Edit1.Text)-1=i then
      begin
        label3.caption:=(inttostr(i+1)+'-е слова предложения: '+'"'+fin[i]+'"');
        break;
        label1.caption:=(inttostr(length(fin.text)));
      end;
      if Strtoint(edit1.text)>fin.Count then
      showMessage('Слова с таким номерам не существует');

[Stilet]

function Aoe(s:string):Integer; var i,c:integer;
begin C:=0;
 for i:=1 to Length(s) do inc(c,byte(pos(s[i],'уеоаыияю')<>0));
 result:=c;
end;

Идея ясна?

[santafer]

нет не понятно... нас не учили еще функциям

[Stilet]

нас не учили еще функциям

Чего? О_о
И в это же время вам дают VCL со всеми его сложностями? Не верю. Не мог ты написать код, что в топе не имея знаний по функциям.

[santafer]

вот так учат