обработка символьной информации, АВС заменить на ОДЕ Опции

[футбик]

Всем привет. Помогите пожалуйста , необходимо все сочетания АВС заменить на ОДЕ, слова разделены пробелами, предложения заканчиваются точкой. Текст вводится с клавиатуры, по желанию можно определить фиксированную длину
Заранее благодарен

[volvo]

есть бок, меняет только 1-ю 'ABC'

Причем прогоняет цикл впустую length(s)-1 раз... Обрати внимание: у тебя внутри цикла For ни одно выражение от i не зависит... Странно, не правда? Если ничего не меняется, так зачем гонять цикл несколько раз?

На самом деле все проще:

...
repeat
  z := pos(s, str); 
  if z <> 0 then begin
    { вот тут и меняешь одно на другое }
  end;
until z = 0; { <--- больше 'ABC' нет, выходим }
...

Цикл For здесь не нужен вообще...