Нужно найти буквы(т.е вывести на экран) которые встречаются в 2 или более словах.

[Gohych]

Задано множество (текст). Нужно найти буквы(т.е вывести на экран) которые встречаются в 2 или более словах.Слова друг от друга отделяются всевозможными знаками или пробелом.Ответ записать в виде другого множества.
Никак не могу правильно написать программу , ответ выводиться в виде пустого множества.Помогите ,решить пожалуйста

[eoln]

Сообщение от Gohych

ответ выводиться в виде пустого множества.

Коды в студию, сложно без них помочь

[newerow1989]

type tSet=set of char;
var p:array of tSet;
    s:string;
    r,t:tSet;
    i0,i,j,n:integer;
    c:char;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   n:=0;
   i0:=1;
   For i:=1 to Length(s) do
      If s[i] in [' ','.',',',':',';','!','?','-'] then
      begin
         n:=n+1;
         SetLength(p,n);
         For j:=i0 to i-1 do
            p[n-1]:=p[n-1]+[s[j]];
         i0:=i+1;
      end;
   For i:=0 to n-2 do
   begin
      For j:=i+1 to n-1 do
         t:=p[i]*p[j];
      r:=r+t;
   end;
   For c:='A' to 'z' do
      If c in r then
         Write(c:2);
   Writeln;
   Readln;
end.

Примечание: работает с английскими текстами!

[Gohych]

Сообщение от newerow1989

type tSet=set of char;
var p:array of tSet;
    s:string;
    r,t:tSet;
    i0,i,j,n:integer;
    c:char;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   n:=0;
   i0:=1;
   For i:=1 to Length(s) do
      If s[i] in [' ','.',',',':',';','!','?','-'] then
      begin
         n:=n+1;
         SetLength(p,n);
         For j:=i0 to i-1 do
            p[n-1]:=p[n-1]+[s[j]];
         i0:=i+1;
      end;
   For i:=0 to n-2 do
   begin
      For j:=i+1 to n-1 do
         t:=p[i]*p[j];
      r:=r+t;
   end;
   For c:='A' to 'z' do
      If c in r then
         Write(c:2);
   Writeln;
   Readln;
end.

Примечание: работает с английскими текстами!

спасибо большое за помощь)