Составить множество символов, одинаковых в каждом слове заданного предложения

var s,s1:string;
    m1,m:set of char;
    i,j,n:integer;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
i:=1;
n:=0;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  inc(n);
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if n=1 then//если первое слово составляем результирующее множество
   begin
    m1:=[];
    for j:=1 to length(s1) do include(m1,s1[j]);
   end
  else//иначе составляем текущее множество
   begin
    m:=[];
    for j:=1 to length(s1) do include(m,s1[j]);
    m1:=m1*m;//и находим его пересечение с результирующим
   end;
  i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
if m1=[] then write('Нет символов, встречающихся в каждом слове')
else
 begin
  writeln('Символы, встречающиеся в каждом слове');
  for i:=32 to 255 do
  if chr(i) in m1 then write(chr(i));
 end;
end.