Задача на множества на паскале

[OPEJI]

Помогите пожалуйста написать код на паскале для задачки, решаемую через множества:
Ввести строку, найти все слова оканчивающиеся на гласную.

[OPEJI]

Я как бы написал код, но не приняли сказали надо через множества, не знаю как переделать, подскажите пожалуйста:

uses crt;
var sl,s:string;
    i:integer;
begin
clrscr;
write('ввести строку');
      readln(s);
      sl:='';
      i:=1;
      s:=s+'.';
      repeat
      if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
         then begin
         if (sl[length(sl)]='У') or (sl[length(sl)]='Е') or (sl[length(sl)]='Ы') or (sl[length(sl)]='А') or (sl[length(sl)]='О') or (sl[length(sl)]='Э') or (sl[length(sl)]='Я') or (sl[length(sl)]='И') or (sl[length(sl)]='Ю') or (sl[length(sl)]='у') or (sl[length(sl)]='е') or (sl[length(sl)]='ы') or (sl[length(sl)]='а') or (sl[length(sl)]='о') or (sl[length(sl)]='э') or (sl[length(sl)]='я') or (sl[length(sl)]='и') or (sl[length(sl)]='ю')
            then writeln(sl);
              end
         else sl:=sl+s[i];
      i:=i+1
      until i>length(s);
end.

[Базиля]

Заносишь в множество все гласные буквы, ну и смотришь входит ли послендняя буква какого-либо слова в это множество:

 S : Set of Char;
.....
S:=['а','у','о','ы','и','э','я','ю','ё','е'];
.....
if s1[i] in s then
.......

[OPEJI]

Вот может кому-то пригодится)

uses  crt;
var sl,st:string;
    i:integer;
    S,A : Set of Char;
begin
clrscr;
S:=['а','у','о','ы','и','э','я','ю','ё','е'];
A:=[' ',',',';',':','.','!','?'];
write('Введите строку:');
      readln(st);
      sl:='';
      for i := 1 to length(st) do begin
      if (st[i] in A) or (i=length(st)) then begin
        if (i=length(st)) and not(st[i] in a) then sl:=sl+st[i];
         if sl[length(sl)] in S then begin
          write(sl,' ');
            sl:='';  end; sl:='';
              end
         else sl:=sl+st[i];
      end;
end.