Определить, сколько гласных введено с клавиатуры и сколько из них символов "а"

[Romashka)]

Написать программу, которая определяет, сколько гласных символов введено с клавиатуры и сколько из них символов "а".

Если вас не затруднит, можно предельно просто и поподробнее...
Заранее вас благодарю!

[Stilet]

readln(s);
for i:=1 to length(s) do begin
 if s[i]='a' then inc(a);
 if s[i] in ['a','e','o'] then inc(glas);
end;

Потом выводи на экран a и glas - это переменки типа integer. которые будут содержать кол-ва.