Получить и напечатать множество из встречающихся в последовательности гласных букв

[amba011]

Здравствуйте, помогите решить задачу: "дана последовательность символов. Получить и напечатать множество из встречающихся в последовательности гласных букв. Вычислить, сколько таких символов в последовательности."
Заранее вам благодарен!!!
P.s. Программа нужна на паскале.

[fbus]

пиши в аську, сделаю быстро (очень) и дешево

[amba011]

за деньги всяк может, а ты просто за спасибо напиши

[ZaRDaK]

var
i : Integer;
S : String;
begin
ReadLn(S);
for i := 1 to Length(S) do if S[i] in ['a','e','i','o','u','y','A','E','I','O','U','Y'] then Write(S[i] + ' ');
ReadLn;
end.

нет, серьёзно, за что тут деньги брать?