Если длинна строки больше объявленной, разместить избыточный текст в новой строке!!!

[bingooo]

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

Вот мой исходник, меняет чилд на чилдрен:

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.


Помогите пожалуйста переделать прогу, чтобы выполнить второе условие, т.е. переносить слова на новую строку, если она превышает указанное число символов.

Я в тупике, помогите пожалуйста!!!

[psycho-coder]

Может так?

uses crt;
var
 tmp: String;
 i: Integer;

begin
  ClrScr;
  tmp := 'children';

  for i := 0 to Length('child') do
    Write(tmp[i]);
  WriteLn;
  for i := Length('child')+1 to Length(tmp) do
    Write(tmp[i]);

end.