Строковые переменные

[ISTINA]

Решите пожалуйста, завтра зачет. Очень надо

1.Дана строка. Посчитать количество слов, начинающихся на гласную.
2.Дана строка. Заменить все вхождения "ах" на "ух".
3.Определить четвертую букву третьего слова в строке S. Сообщить если таковой нет.
4. Дано слово. Определить сколько в нем различных букв.

[BHy4ok]

На чем писать?
Задачи элементарные, пользуйтесь поиском.

[ISTINA]

Ну не знаю. Мне они простыми не показались(
Надо написать программу для делфи. С поиском я пробовала, не прокатило.
Если вам не сложно, то решите пожалуйста

[BHy4ok]

Проекты прикреплены файлами ниже.
Все программы скомпилируете в Delphi сами т.к. максимальный размер заливаемого файла на этом сайте, не позволяет заливать *.exe

1) Примечание: используются АНГЛИЙСКИЕ гласные.
[syntax='Delphi']
procedure TForm1.Button1Click(Sender: TObject);
Const
C=['a','o','i','y','e'];
var
S:string;
i,j:integer;
begin
S:=Edit1.Text;
j:=0;
for I := 0 to length(s) do
if (S=' ') or (S='') then
if S[i+1] in C then
inc(j);
label3.Caption:=IntToStr(j);
end;
[/syntax]
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
2)
[syntax='Delphi']
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=StringReplace(Edit1.Text,'ах','ух',[rfReplaceAll]);
end;
[/syntax]

[ISTINA]

СПАСИБО ОГРОМНОЕ!!!
В Делфи проверила, все работает замечательно
Не могли бы вы решить еще две? Мне зачет на четверг перенесли.