Pascal (Дана строка символов, признак конца строки – точка. Сформировать множество не повторяющихся гласных символов.)

[Shestak123]

Дана строка символов, признак конца строки – точка. Сформировать множество не повторяющихся гласных символов.

[Aleksandr H.]

var v,v_original:set of char;
s:string;
i:byte;
begin
 v := ['A','E','Y','U','I','O'];
 v_original := [];
 readln(s);
 for i:=1 to length(s) do
  begin
    if (upcase(s[i]) in v) then v_original := v_original +[s[i]];
  end;
  readln;
end.