Дано предложение. В нем только два слова одинаковые. Найти их

program lokds;
uses crt;
var s,s1:string;
    i:integer;
 
begin
     clrscr;
     writeln('Ââåäèòå ïðåäëîæåíèå:');
     readln(s);
     s:=s+' '; s1:='';
     while pos(' ',s)<>0 do
     begin
           for i:=1 to length(s) do
           s1:=copy(s,1,pos(' ',s)-1);
           delete(s,1,pos(' ',s));
           if s1=s then writeln('Ýòî ñëîâî:',s1)
     end;
     s1:='';
     readln
end.

А можно так... 
uses crt;
const zn=[' ',':',',','!','?','-',';',')'];{разделители слов в предложении}
var s,s1,s2:string;
    i,k:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
s:=s+',';{добавим запятую в конец}
for i:=1 to length(s) do
if s[i] in zn then s[i]:=',';{заменим все разделители на запятые}
while pos(',,',s)>0 do{удалим лишние запятые}
delete(s,pos(',,',s),1);
if s[1]=',' then delete(s,1,1); {если первая запятая(вдруг!), удалим ее}
k:=0;
while pos(',',s)>0 do {пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s)-1);{копируем первое слово}
  for i:=pos(',',s)+1 to length(s) do {смотрим слова впереди}
  if (copy(s,i,length(s1))=s1)
     and(s[i-1]=',')
     and((s[i+length(s1)]=',')
     or(i+length(s1)-1=length(s))) then
      begin
       k:=1;
       s2:=s1;
       write('Одинаковые слова ',s2);
       readln;
       exit;
      end;
  delete(s,1,pos(',',s));{удалим проверенное слово}
 end;
if k=0 then write('Нет двух одинаковых слов');
readln
end.

if (copy(s,i,length(s1))=s1)//если в стороке есть length(s1) символов,
                            //равных s1
     and(s[i-1]=',')//и перед ними запятая
     and((s[i+length(s1)]=',')//и после них запятая
     or(i+length(s1)-1=length(s))) then//или это конец строки

{$mode objfpc}
program lokds;
uses classes, crt;
const
   delimiters = [' ',':',',','!','?','-',';',')'];
var
   s : string;
   i : integer;
   lst : TStringList;
begin
   clrscr;
   writeln('Введите предложение:'); readln(s);
   lst := TStringList.Create;
   try
      ExtractStrings(delimiters, [], PChar(AnsiString(s)), lst);
      for i := lst.Count - 1 downto 0 do
         if lst.IndexOf(lst[i]) < i then writeln('duplicate : ', lst[i]); // можно добавить Break...
   finally
      lst.Free;
   end;
   readln
end.