В тексте созданного файла заменить все цифры словесным названием

uses crt;
const
cf=['0'..'9'];{множество цифр}
sl:array[1..10] of string=('zero','one','two','three','four','five','six','seven','eigth','nine');
{массив строк-слова}
var f,g:text;
    s,s1:string;
    i,k:byte;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
while not eof(f) do
  begin
   readln(f,s);{читаем строку}
   k:=0;
   for i:=length(s) downto 1 do{смотрим ее с конца}
   if s[i] in cf then{если цифра}
     begin
      k:=ord(s[i])-47;{берем ее код и вычитаем 47, получаем номер слова в массиве}
      if (s[i-1]<>' ')and(i<>1) then s1:=' '+sl[k]
{если перед цифрой не пробел и она не первая, добавим передней пробел, иначе  слова сольются}
      else s1:=sl[k];{если пробел, ничего не добавляем}
      insert(s1,s,i);{вставляем слово}
      delete(s,i+length(s1),1);{удаляем цифру, которя сейчас стоит за словом}
     end;
   writeln(g,s);{записываем в новый файл}
  end;
close(f);
close(g);
write('Fail zapisan!');
readln
end.