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

[Аля321]

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

[ZX Spectrum-128]

1.

{Составьте программу, выясняющую, встречается ли в слове Х первая буква слова Y.}
var
  x,y:string;
begin
  write('Enter X: '); readln(x);
  write('Enter Y: '); readln(y);
  if pos(y[1],x)<>0 then
    writeln('Встречается.')
  else
    writeln('Нет, не встречается.'); 
end.

[Arigato]

2.

const
  glas: set of char=['у','У','е','Е','ы','Ы','а','А','о','О','э','Э','я','Я','и','И','ю','Ю','ё','Ё'];
  
var
  g: set of char;
  s: string;
  i,c: integer;
  
begin
  readln(s);
  c:=0;
  g:=[];
  for i:=1 to length(s) do begin
    if (s[i] in glas) and not (s[i] in g) then begin
      inc(c);
      g:=g+[s[i]];
    end;
  end;
  writeln(c);
end.

[Stilet]

2) http://www.programmersforum.ru/showp...0&postcount=37