названия цифр перевести в сами цифры (Делфи)

[morgan996]

Ребята, помогите пожалуйста. Дана строка, если в строке имеются слова, представляющие запись цифры с помощью русских букв, заменить эти слова соответствующими цифрами

Помогите пожалуйста. Это крайне важно для меня

[ОДИНОЧЕСТВО В СЕТИ]

вот для английских названий

uses
  SysUtils;
var
  a:array[1..10] of string =('one','two','three','four','five','six','seven','eight','nine','zero');
  b:array[1..10] of string = ('1','2','3','4','5','6','7','8','9','0');
  i:integer;
  s:string;
  k:integer;
begin
Writeln('input string');
Readln(s);
for i:=1 to 10 do begin
While pos(a[i],s)<>0 do begin
 k:=pos(a[i],s);
 delete(s,k,length(a[i]));
 insert(b[i],s,k);
 end; end;
writeln(s);
readln;
end.

[morgan996]

Спачибо большое. Выручили сильно. У меня ход задачи был не такой и я не мог понять совей ошибки. Спасибо за помощь