помогите со строками разобраться

[pirozho4ek]

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

1)дана строка подсчитать вв ней кол-во входящих букв r,b,t.



2)дана строка подсчитать кол-во гласных букв.



3)дана строка содержащая англ.текс.Найти количество слов на b.

Заранее спасибо

[pu4koff]

1.
str: string;
i,cnt_r,cnt_b,cnt_t: integer;
cnt_r := 0; cnt_b := 0; cnt_t := 0;
for i := 1 to length(str) do
begin
if str[i]='r' then inc(cnt_r)
else if str[i]='b' then inc(cnt_b)
else if str[i]='t' then inc(cnt_t);
end;
2.
for i := 1 to length(str) do if (str[i] in ['а','е','ё','и',...]) then inc(cnt);
3.
output: TStrings;
...
output := TStringList.create;
ExtractStrings([' ',#13],[],str,output);
for i := 0 to output.count -1 do
begin
if (output.Items[i][1] = 'b') then inc(cnt);
end;
output.free;

ЗЫ. писал здесь, так что могут быть ошибки

[pirozho4ek]

пасибо за помощь =-)