Замена слов в строке (Паскаль)

[Лесная Эльфийка]

Здравствуйте. Не могу решить задачу. Пробовала через Pos, так он меняет только первое слово.
Задача:
Составить программу, с помощью
которой можно в заданном тексте все слова "один", "два" и
т.д. заменить на соответствующие цифры "1","2" и т.д. (программа должна содержать процедуры и функции)

[Utkin]

Правильно, потому можно искать в цикле. Вручную, а не pos, либо использовать PosEx.

[Niro]

Ну кажись работает, так что держите

uses crt;
   const mst: array [1..9] of string = ('one','two','there','four',
                                        'five','six','seven','eight','nine');

   var s,ss: string;
       i,p,k: integer;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s);
   for i:=1 to length(s) do
   begin
     k:=k+1;
     p:=pos(mst[k],s);
     if p<>0 then begin
                    delete(s,p,length(mst[i]));
                    str(k,ss);
                    insert(ss,s,p)
                  end;
     if k=9 then k:=0;
   end;
   writeln('----------------------------------------');
   writeln(s);
   readln;
END.

[Лесная Эльфийка]

Спасибо. ^__^