множества

[bifshtex]

Дано слово w1 и строка S. Вывести все гласные буквы, которые одновременно встречаются и в строке и в заданном слове.
Множества вообще не могу понять(((

[InfStudent]

Ну так делай через массивы))

[Данила]

var A,M: set of char;
s,w1:string;
i:integer;
begin
A:=['a',...{перечисляете все гласные}];
for i:=1 to length(s) do begin
 if (s[ i ] in A) then  M:=M+[ i ]; то есть создаем множество гласных встречающихся в строке
end;
for i:=i to length(w1) do begin
 if (w1[ i ] in A) and (w1[ i ] in M) then writeln(w[ i ]);
end;

что то наподобие этого

[bifshtex]

спасибо огромное)))