Составьте программу, выясняющую, встречается ли в слове Х первая буква слова Y

[Эд123]

Составьте программу, выясняющую, встречается ли в слове Х первая буква слова Y

Помогите пожалуйста составить программы на языке Паскаль, заранее спасибо
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)='а'
а дальше как остальные гласные не знаю как написать

 

[Евгений]

1.
var s1,s2: string;
n,i: byte;
begin
Write('Pervoe slovo : '); Readln(s1);
Write('Vtoroe slovo : '); Readln(s2);
n:=0;
for i:=1 to Length(s1) do
if s1=s2[1] then Inc;
if n>0 then
Writeln('Da')
else
Writeln('Net');
Readln;
end.
2.
var s:string;
c:char;
i,n:integer;
begin
Write('Slovo : '); Readln(s);
repeat
Write('Glassnay ili probel-vihod : ');
Readln(c);
if c=' ' then break;
n:=0;
for i:=1 to Length(s) do
if s=c then Inc;
Writeln(c,' = ',n);
until c=' ';
Readln;
end.

 

[Евгений]

Наверное я не правильно понял второе задание.
Вероятно так правильнее:
var A:set of char;
s:string;
c:char;
j,n:integer;
begin
A:=['a','e','i','o','u','y'];
Write('Slovo : '); Readln(s);
for c:='a' to 'z' do
if c in A then
begin
n:=0;
for j:=1 to Length(s) do
if s[j]=c then Inc;
if n<>0 then
Writeln(c,' = ',n);
end;
Readln;
end.