Помогите пожалуйста с задачами на массивы(Pascal)

[Dark_Zealot]

Люди добрые, выручайте пожалуйста! Помогите решить две задачки на массивы! Я совсем запутался, а времени на решение катастрофически не хватает... Очень прошу, помогите...
1)Составить программу, выясняющую, встречается ли в слове Х первая буква слова Y.
2)Составить программу подсчета различных гласных букв в слове Х.

[Diavol]

Если нет своих наработок - значит готов платить.

300 руб каждая задачка

пиши tut@hotbox.ru

[Dark_Zealot]

Свои наработки есть. Тем более 300р за такие задачи это дорого. Просто прошу помочь, срочно нужно сдавать, а времени на решение нет...

[alex_fcsm]

uses crt;
var s1,s2:string;
    i:integer;
    flag:boolean;
begin
clrscr;
flag:=false;
writeln('Input X');
readln(s1);
writeln('Input Y');
readln(s2);
for i:=1 to length(s1) do
 if s2[1]=s1[i] then flag:=true;
if flag then writeln('Yes')
   else writeln('No');
end.

[alex_fcsm]

uses crt;
var s:string;
    i,n:integer;
    M,Mn:set of char;
begin
m:=['a','o','e','i','u','y'];
mn:=[];
clrscr;
n:=0;
Writeln('Input string');
readln(s);
for i:=1 to length(s) do
 if s[i] in m then if not (s[i] in mn) then begin
                                                inc(n);
                                                mn:=mn+[s[i]];
                                                write(s[i],' ');
                                                end;
writeln;
writeln(n);
end.

[Sm1Le]

Сообщение от Diavol

Если нет своих наработок - значит готов платить.

300 руб каждая задачка

пиши tut@hotbox.ru

Оо

[Dark_Zealot]

alex_fcsm, огромное человеческое спасибо! Очень выручил!