Замена длины слова его позицией

[Nezaam]

ТЗ:
Текст задан способом: первый символ - цифра, указывающая длину первого слова, за первым словом через пробел - вновь цифра, указывающая длину второго слова и т.д.
Вместо цифр указывающих длину слова, вставить числа, указывающие коорлинату начала следующего слова.

Т.е. имеем "4мама 4папа" надо получить "2мама 7папа". Наработка у меня есть:

procedure TfMain.Button1Click(Sender: TObject);
var
  str  : String;
  i, n : Integer;
begin
  str := Edit1.Text;
  n := length(str);
  i := 1;
  while i<n do begin
    case str[i] of
      '0'..'9' : begin
                  delete(str,i,1);
                  insert(IntToStr(i+1),str,i);
                 end;
    end; //case
  inc(i);
  if i>9 then i := i+1;
  end; // while
Label1.Caption := str;
end;

На вышеописанном примере код работает, но как сделать чтобы код работал если длина слова больше 9 символов?
"4хлеб 14синхрофазатрон" -> "2хлеб 7синхрофазатрон".

[Serge_Bliznykov]

получите и распишетесь...

var
  st  : String;
  i, LenNumber, LenPos : Integer;
begin
  st := Edit1.Text;
  i := 1;
  while i<length(st) do begin
    if st[i] in ['0'..'9'] then begin
      LenNumber := 0;
      while ((i+LenNumber)<=length(st))
         and (st[i+LenNumber] in ['0'..'9']) do inc(LenNumber);
      delete(st,i,LenNumber);
      LenPos := Length(IntToStr(i+1));
      insert(IntToStr(i+LenPos),st,i);
      inc(i, LenPos);
    end;
  inc(i);
  end; // while
  Label1.Caption := st;
end;

[Nezaam]

Serge_Bliznykov, спасибо большое.