Строковый тип

[dusya9992]

Используя процедуры и функции обработки строк, произвести необходимые операции над строками.
Заменить в строке S все сочетания «два» на «три».

[Жека-старший]

program pr1;
var s:string;
begin
  writeln(Введи строку');
  readln(s);
  while pos('два',s)<>0 do
    s:=copy(s,1,pos('два',s)-1)+'три'+copy(s,pos('два',s)+3,Length(s)-pos('два',s)+2);
  writeln('Новая строка- ',s);
  writeln(s);
end.