Дан файл, содержащий текст на русском языке.

[Figushkin]

Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле отредактированный текст, в котором удалены по-вторные вхождения слов в предложении.

[Z1000000]

Ты ими ( решениями ) торгуешь что ли ? Может договоримся!

program AnalizeText;
type
 Symbols = set of Char;
var
 EndSentense,EndWord : Symbols;
 Sym : Char;
 CurWord,PrevWord : String;
 i,k : Integer;
 f,g : Text;
begin
EndSentense := ['.','?'];
EndWord := [' ',Chr(10),Chr(13)];
Assign ( f, '111.txt');
Assign ( g, '222.txt');
Reset ( f );
Rewrite ( g );
PrevWord := '';
while not eof(f) do
 begin
 read ( f, Sym );
 if ( Sym in EndSentense ) or ( Sym in EndWord ) then
  begin
  if CurWord <> '' then
   if PrevWord <> CurWord then
    begin
    write ( g,CurWord );
    PrevWord := CurWord;
    end;
  CurWord := '';
  write ( g, Sym );
  end
 else
  begin
  CurWord := CurWord + Sym;
  end;
 end; // while

Close ( f );
Close ( g );
end.