В алфавитном порядке напечатать (по разу) все строчные русские гласные буквы, входящие в этот текст. - Pascal

var
  s,temp:string;
  m:set of char;
  c:char;
  i,j:integer;
begin
  readln(s);
  temp:='';
  for i:=1 to length(s) do
    if not (s[i] in m) and (s[i] in ['а'..'я']) then
    begin
      temp:=temp+s[i];
      include(m,s[i])
    end;
  for i:=1 to length(temp)-1 do
    for j:=i+1 to length(temp) do
      if temp[i]>temp[j] then
      begin
        c:=temp[j];
        temp[j]:=temp[i];
        temp[i]:=c
      end;
  writeln(temp)
end.