Работа с множествами

var
  s, d: string;
  i: integer;
  c: char;
  m, t: set of char;
begin
  writeln('Введите строку из слов, разделённых пробелами:');
  readln(s);
  s := s + ' '; {пробел после последнего слова для упрощения алгоритма}
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1); {удаление лишних пробелов}
  if (length(s) > 1) and (s[1] = ' ') then delete(s, 1, 1); {удаление первого пробела}
  m := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; {пока считаем, что все буквы входят}
  t := []; {множество букв в слове (пока пустое)}
  for i := 1 to length(s) do {цикл по строке}
    if s[i] <> ' ' then {если не конец слова, то}
      include(t, s[i]) {добавляем букву во множество букв слова}
    else {иначе (если конец слова) то}
      begin
        m := m * t; {оставляем только те гласные, которые есть и во множестве, и в слове}
        t := [] {и очищаем множество для следующего слова}
      end;
  {Печатаем результат}
  writeln('Множество из строчных гласных русских букв, входящих в каждое слово:');
  write('['); {печатаем открывающую скобку}
  d := ''''; {пока разделитель кавычка}
  for c := low(char) to high(char) do {перебираем все возможные символы}
    if c in m then {если символ во множестве, то}
      begin
        write(d, c, ''''); {печатаем разделитель, символ, и кавычку}
        d := ', ''' {для всех символов, кроме первого, разделитель запятая, пробел и кавычка}
    end;
  writeln(']') {печатаем закрывающую скобку}
end.