Pascal inserer une chaine de caractere

Bonjour,
j'ai un probleme pour faire un programme qui insere une chaine de caractere a une rang voulu par ex si on met rang=2 on placera le mot juste apres le deuxieme mot de la phrase!
(on a le droit d'utiliser que length comme fonction) .
voila ce que j'ai fait

write('le mot a inserer====>');
readln(mot_cle); {"mot_cle" est le mot inserer et "phrase" est la phrase dans la quelle on doit l'inserer}
readln(rang);
i:=0;nb:=0; {nb represente le nombre de mot }

while (nb<rang) do
begin {Avance jusqu'au RANG ou on doit}
i:=i+1 ; {inserer le nouveau mot }
if (phrase[i]=' ') then
begin
nb:=nb+1 ;
end;
end;

a:=length(phrase) ; b:=length(mot_cle); c :=1
for k:=i to a do {on colle le reste de la phrase (depuis le rang) au mot_cle}
begin
mot_cle[b+c]:=phrase[k] ;
c:=c+1 ;
end;
c:=0;
for k:=i to a+b do
begin
phrase[k+1]:=mot_cle[c+1]; {on colle maintenant tous nouveaux mot cle a la phrase
c:=c+1; { depuis le rang }
end;



voila mais le probleme c'est le mot_cle ne veux pas prende les modification ; enfait le reste de la phrase ne veut pas se coller a la fin de mot_cle ; (et je croie avoir bien fait les affectation ) ,; voila !

merci beaucoup d'avance !