[azalivin]

Обнаружить и исправить в тексте дважды записанное слово,записанный текст 80-символьными строками
;переформатировать строки в пределах абзаца

Надо переделать данную программу под задание, как я понимаю сходиться многое

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Procedure DevideStrOnWords(Str : String); var CurPos, LengthStr  : byte; Ch : WideString; ListWords := TStringList; begin ListWords := TStringList.Create; //Преобразование всех разделительных знаков в пробелы Str:=StringReplace(Str,'.',' ',[rfReplaceAll]); Str:=StringReplace(Str,',',' ',[rfReplaceAll]); Str:=StringReplace(Str,'!',' ',[rfReplaceAll]); Str:=StringReplace(Str,'?',' ',[rfReplaceAll]); //Удаление лишних пробелов CurPos := 0; LengthStr := Length(Str); repeat inc(CurPos); Ch := Copy(Str, CurPos ,1); if Ch = ' ' then begin  while Copy(Str, CurPos+1, 1) = ' ' do begin   Str := Copy(Str, 1, CurPos)+Copy(Str, CurPos+2, LengthStr-CurPos+1);   Dec(LengthStr);  end; end; until CurPos=Length(Str); //Форматировние пробелов в символ конец строки Str:=StringReplace(Str,' ',#13#10,[rfReplaceAll]); //Строку в StringList это массив слов ListWords.text := Str; end;

Admin: Пользуемся тегами!

[lmikle]

Ничего не понятно.
Задание подробнее и твой код, именно твой.