поиск латинских гласных букв в строке

[KoFeMaN]

Ув.программисты нужна ваша помощь.передо мной стоит задача найти буквы латинского алфавита в введенной строке.но преподователя не устраивает это A:=[a,e,i,o,u,y]; и if (i in A) and (i in B) then подскажите пожалуйста как это можно заменить.

program lab8_b;
type stroke=set of 'a'..'z';
procedure write_str(Var B:stroke);
Var k:char;
begin
  B:=[];
  while k<>'.' do
    begin
      read(k);
      B:=B+[k]
    end;
end;
procedure search_gl(B,A:stroke);
Var i:char;
begin
  For i:='a' to 'z' do
    if (i in A) and (i in B) then
      write(i);
end;
Var A,B:stroke;
begin
  A:=[a,e,i,o,u,y];
  write_str(B);
  search_gl(B,A);
end.

[Alex_FF]

искать только a,e,i,o,u,y?

[IT-man]

A:=[a,e,i,o,u,y];

может все таки

A:=['a','e','i','o','u','y'];

var
s:string;
i:integer;
----------------------
begin
readln(s);
for i:=1 to length(s) do
if  (s[i]='a') or (s[i]='e') or (s[i]='i') or (s[i]='u') or (s[i]='y') then write(s[i]);
----------------------
end.

[KoFeMaN]

тоже вариант=)А как можно используя множества?Ну т.е. там сложить два множества и найти их пересечение

[IT-man]

'A','B'] + ['A','D'] даст ['A','B','D']
['A','D'] * ['A','B','C'] даст ['A']
['A','B','C'] - ['A','B'] даст ['C'].

var a:set of char;
     b:set of char;
     c:set of char;
begin
a:=['a'..'z'];
b:=['a','e','i','o','u','y'];
c:=a+b; // обьеденинение
c:=a*b; // пересечение
c:=a-b; // вычитание
end.

[KoFeMaN]

такой вопрос.а как выводить множества?ну как допустим в вашем примере вывести с

[IT-man]

for i:='a' to 'z' do
if i in с write(i);

[KoFeMaN]

вот такой вот готовый код получился

program lab8_b;
type stroke=set of 'a'..'z';
procedure write_str(Var B:stroke);
Var k:char;
begin
  B:=[];
  while k<>'.' do
    begin
      read(k);
      B:=B+[k]
    end;
end;
procedure search_gl(B,A:stroke);
Var i:char;
begin
  for i:='a' to 'z' do
    if (i in (A*B)) then
      write(i);
end;
Var A,B:stroke;
begin
  A:=['a','e','i','o','u','y'];
  write_str(B);
  search_gl(B,A);
end.