Каждое слово one заменить на three

[ilyha93]

ЗАДАНИЕ:
 Каждое слово one заменить на three... ( Нужно использовать только length и setlength вместо delete pos insert) .... люди подскажите как это сделать??

 program z5123;
 var T:string;
 i:integer;
 zc,zn:string;
 begin
 writeln('input T');
 readln(T);
 zc:='one';
 zn:='three';
 while pos(zc,T)>0 do
 begin
 i:=pos(zc,T);
 delete(T,i,length(zc));
 insert(zn,T,i);
 end;
 writeln(' new text');
 writeln(T);
 readln
 end.

[Selyd]

1. Ввели текст - Согласен
2. Назначили что менять на что - Согласен
3. Определить длину текста, сколько символов.
4. Если начало текста или в тексте после пробела - набираем слово с 3 символов, другие варианты - уходим до следующего пробела
5. Если что надо - замена, но надо подвинуть хвост на 2 позиции (three длинее one)
6. Проверяем конец текста. (Не забыть, что длина может измениться)

[ilyha93]

а можете если не сложно написать код просто мне так тяжело понять и сама суть что нужно использовать length и setlength  вместо begin insert pos а как это сделать?  код который выше он рабочий я проверял .. НО СУТЬ В ТОМ ЧТО НУЖНО ИСПОЛЬЗОВАТЬ друие команды..а как их вставить я затрудняюсь