Множество.

Program letter;
uses crt;
var i:integer;
    s,st:string;
    D:set of char;
    b:boolean;
begin
clrscr;
writeln('Vvedite posledovatelnost slov cherez zapyatyu');
readln(s);
while length(s) <> 0 do begin
 b:=pos(',',s) <> 0;   
 if b then st:=copy(s,1,pos(',',s)-1) 
 else st:=copy(s,1,length(s));
 D:=[];
 if length(st) <> 1 then begin
    include(D,st[1]);      
    for i:=2 to length(st) do if st[i] in D then begin
                                                 write(st,' ');
                                                 break
                                                 end;
    end;
 if b then delete(s,1,pos(',',s)) 
 else delete(s,1,length(s))       
end;
readln
end.

b:=pos(',',s) <> 0; //присваиваем логической переменной true, если в строке есть запятая
                    //и false, если нет  
 if b then st:=copy(s,1,pos(',',s)-1) //если есть, то копируем слово 
                                      //от начала строки до запятой, исключая ее
 else st:=copy(s,1,length(s));//иначе копируем всю строку(вероятно последнее слово)
 D:=[];
 if length(st) <> 1 then begin//если в строке не 1 символ
    include(D,st[1]); //берем первый     
    for i:=2 to length(st) do if st[i] in D then begin
                                                 write(st,' ');
                                                 break
                                                 end;
    end;
 if b then delete(s,1,pos(',',s)) //если есть запятые, удаляем их
 else delete(s,1,length(s)) //иначе удаляем все