Паскаль, строки

[Kampuchiec]

Паскаль, строки

Дана строка, состоящая из любых символов. Нужно найти все английские гласные не входящие в эту строку.:tehnari_ru_837:

 

[Vladimir_S]

Дана строка, состоящая из любых символов. Нужно найти все английские гласные не входящие в эту строку.:tehnari_ru_837:

Пожалуйста:

Const
 Vow=['a','e','i','o','u','y','A','E','I','O','U','Y'];
Var
 S:String;
 Svow:Set of Char;
 i,j:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 Svow:=[];
 For i:=1 to length(S) do
  if (S[i] in Vow) and Not(S[i] in Svow) then Svow:=Svow+[S[i]];
 For i:=65 to 122 do
  If ((i<91) or (i>96)) and (Chr(i) in Vow) and Not(Chr(i) in Svow) then
   Write(Chr(i)+' ');
 Readln;
End.

 

[Kampuchiec]

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