Напечатать в алфавитном порядке все строчные русские гласные буквы

type
rt = set of char;
var
S_str, RusG: RT;
w:string;
j,i:byte;
k: string;
begin
 writeln('Введите предложение из строчных русских букв');  
 S_str:=['а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я',',','.'];
 RusG:=['а','е','и','о','у','ы','э','ю','я'];
 readln(w); 
  for i:=length(w) downto 1 do
   if w[i] in S_str then begin // проверка на допустимые символы
    for j:=length(w) downto 1 do
    if w[j] in RusG then begin // проверка на гласные
    writeln(w[j]);
    end
    else writeln('Недопустимые символы');
    end;
end.

var
  s: String;
  v: set of Char;
  c: Char;
  i: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  for i:=1 to Length(s) do Include(v,s[i]);
  v:=v*['а','е','и','о','у','ы','э','ю','я'];
  for c:='а' to 'я' do if c in v do Write(' ',c); WriteLn;
end.

var
  s: String;
  v: set of Char;
  c: Char;
begin
  Write('Введите строку: '); ReadLn(s);
  for c in s do Include(v,c);
  v:=v*['а','е','и','о','у','ы','э','ю','я'];
  for c in v do Write(' ',c); WriteLn;
end.