uses crt;
VAR
 S:string;
 SS:ARRAY[1..255] of String;
 cnt,i,j,N,Ns:byte;
 b:boolean;
BEGIN
 Clrscr;
 WriteLn('Enter the string:');
 ReadLn(s);
 Ns:=0;
 Repeat
  cnt:=pos(' ',S);
  if cnt>0 then
   begin
    Inc(Ns);
    SS[Ns]:=copy(s,1,cnt);
    S:=copy(S,cnt+1,length(S));
   end;
 Until cnt=0;
 Inc(Ns);
 SS[Ns]:=S;
 N:=0;
 For i:=1 to Ns-1 do
  If SS[i]<>S[Ns] then
   begin
    b:=false;
    for j:=2 to Length(SS[i]) do
     if SS[i][j]=SS[i][1] then b:=true;
    If b then
     begin
      WriteLn(SS[i]);
      Inc(N);
     end;
   end;
 If N=0 then WriteLn('No such words!');
 ReadLn;
end.