Строка имеет объявленную длину n символов. Заменить в тексте строки слова «child» словами «children». Если при этом длина строки превысит n символов, избыточные слова разместить в новой строке, не используя знак переноса части слова. Буферную строку не использовать — Pascal(Паскаль)

uses crt;
var s,s1:string;
    n,i:integer;
     begin
      clrscr;
        writeln('vvedi stroku: ');
        readln(s);
        n:=length(s);
        s1:='ren';
        writeln('izmenennaya stroka: ');
          for i:=1 to n+8 do
            if (s[i]='c') and (s[i+1]='h') and (s[i+2]='i') and (s[i+3]='l') and (s[i+4]='d')
              then insert(s1,s,i+5);
        writeln(s);
 
      end.