Напечатать гласные буквы, входящие в каждое слово, и согласные буквы, не входящие ни в одно слово - Pascal

var s: string;
    glasn, soglasn, w: set of char;
    i: integer;
    c: char;
begin
  writeln('Введите последовательность русских слов через запятую с точкой в конце:');
  readln(s);
  glasn := ['а','е','ё','и','о','у','ы','э','ю','я'];
  soglasn := ['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
  w := [];
  for i := 1 to length(s) do
    if s[i] in ['.', ',']
      then begin
        glasn := glasn * w;
        soglasn := soglasn - w;
        w := []
      end
      else include(w, s[i]); //процедура include - это то же самое, что и w := w + [s[i]], но быстрее
  writeln('Гласные буквы, входящие в каждое слово:');
  if glasn = []
    then writeln('Не найдены.')
    else begin
      for c := ' ' to high(char) do if c in glasn then write(c);
      writeln
    end;
  writeln('Согласные буквы, которые не входят ни в одно слово:');
  if soglasn = []
    then writeln('Не найдены.')
    else begin
      for c := ' ' to high(char) do if c in soglasn then write(c);
      writeln
    end;
  readln
end.