заменить в строке подстроку

[Lemo]

Ребята, нужно заменить в строке 'child fsdfsd child fefes child'
подстроку "child" на "children"
я сна4ала удалил подстроку "child" и вот не знаю как сделать, что бы на месте "child" стояло "children", помогите пл3!
Вот мой код:

Program LOL;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var st:string;

begin

st:='child fsdfsd child fefes child';
writeln (st);
readln;
While Pos('child', st) <> 0 do delete (st, Pos('child', st),5);


Insert('children', st,5);
writeln (st);
readln;

end.

[Terran]

Ребята, нужно заменить в строке 'child fsdfsd child fefes child'
подстроку "child" на "children"

Попробуйте так:

Var
S: String;
Begin
S:='child fsdfsd child fefes child';
S:=StringReplace(S,'child','children',[RfreplaceAll]);
End;

[Lemo]

Ты наверно писал вслепую, так как оно никаких символов не выводит на экран, пересмотри пожалуйста код!

[Mixasik]

Сообщение от Lemo

Ты наверно писал вслепую, так как оно никаких символов не выводит на экран, пересмотри пожалуйста код!

Program LOL;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
St: String;
Begin
St:='child fsdfsd child fefes child';
St:=StringReplace(S,'child','children',[RfreplaceAll]);
writeln (st);
readln;
End;

Не выводит - ну добавь Writeln сам Подвел под твой пример.

[Lemo]

Спасибо за помощь всем, немножко переделал и все пашет, если интересно вот код:

Program LOL;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
St: String;
Begin
St:='gggf child iuhh child  huhhuhu child';
writeln (st);
readln;
St:=StringReplace(St,'child','children',[RfreplaceAll]);
writeln(st);
readln;
End.