Слова в тексте разделены пробелами. Какие символы есть в каждом слове? Паскаль.

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var s:=ReadlnString(Текст->).ToWords;
  var c:=s[0].Intersect(s[1]);
  for var i:=2 to s.Length-1 do c:=c.Intersect(s[i]);
  Write(Символы, встречающиеся в каждом слове: );
  c.Println(,)
end.

Пример
Текст-> сегодня двенадцатое ноября
Символы, встречающиеся в каждом слове: о,н