Ввести последовательность из букв латинского алфавита. Сформировать два множества: множество S1 с маленьких гласных букв, множеств

[destra1j]

Ввести последовательность из букв латинского алфавита. Сформировать два множества: множество S1 с маленьких гласных букв, множество S2 с больших согласных букв. Найти объединение образованных множеств.

Var 
S3,S4,Q,S1,S2:set of char;
s:string;
begin
S3:=['a,e,i,o,u'];
S3:=['B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,Z'];
writeln('введите строку латинских букв');
readln(s);
for i:=1 to length(s) do
  begin
   if s[i] in S3 then
   //поместить в множество S1 
   
   
   
   
   
   if s[i] in S4 then
   // поместить в множество S2

Подскажите как сделать так что если елемент s[i] есть в множестве S3,S4 то записать есть в S1,S2.

[Mad_Cat]

S3:=['a,e,i,o,u'];
S4:=['B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,Z'];
writeln('введите строку латинских букв');
readln(s);
for i:=1 to length(s) do
  begin
   if s[i] in S3 then
   s1:=s1+[s[i]]//поместить в множество S1