Помогите пожалуйста составить программы на языке Паскаль, заранее спасибо
1. Составьте программу, выясняющую, встречается ли в слове Х первая буква слова Y.
2. Составьте программу подсчета различных гласных букв в слове Х.
я начал делать
program z52;
var x:string;
i,p: integer;
begin
writeln ('введите слово');
readln (x);
p:=0;
for i:=1 to length(x) do
if copy(x,i,1)='а'
а дальше как остальные гласные не знаю как написать