Задание на множество типа Set Опции

[Фантомас]

Дана непустая последовательность слов из строчных русских букв; между соседними словами – запятая, за последним словом – точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в два последних слова.

Как решать? помогите

[volvo]

Фантомас,
два последних слова - это после последной запятой, так?

const
  glasn = ['a', 'e', 'i', 'o', 'u']; { можно поменять на русские }
var
  s: string;
  p, i: byte;
  my_set: set of char;
begin
  write('s = '); readln(s);

  p := length(s);
  while s[p] <> ',' do dec(p);
  for i := p to length(s) do
    if s[i] in glasn then include(my_set, s[i]);
  for i := 0 to 255 do
    if chr(i) in my_set then write(chr(i):3);
end.