Заменить слова описывающие цифры на сами цифры в строке

program StrToExample;
uses crt;
var
ff: text;
TextFile, StrNum: string;
 
procedure LoadFile(FN: string);
var
i:integer;
begin
TextFile:='';
i:=0;
assign(ff, FN);
reset(ff);
while not eof(ff) do
begin
     read(ff, TextFile[i]);
     inc(i);
end;
close(ff);
end;
 
procedure Convert(S: String);
begin
if S='Один' then StrNum:=StrNum+'1'
else if S='Два' then StrNum:=StrNum+'2'
else if S='Три' then StrNum:=StrNum+'3'
else if S='Четыри' then StrNum:=StrNum+'4'
else if S='Пять' then StrNum:=StrNum+'5'
else if S='Шесть' then StrNum:=StrNum+'6'
else if S='Семь' then StrNum:=StrNum+'7'
else if S='Восемь' then StrNum:=StrNum+'8'
else if S='Девять' then StrNum:=StrNum+'9'
else if S='Ноль' then StrNum:=StrNum+'0'
end;
 
procedure Vibor (S: string);
var
i:integer;
S1:string;
begin
S1:='';
     for i:=0 to length(S)-1 do
     begin
          if S[i] in ['А'..'Я', 'а'..'я'] then
          S1:=S1+S[i]
          else
          if S[i]=' 'then
          begin
          Convert(S1);
          S1:='';
          end else
          if S[i] in ['0'..'9', '+', '-', '*', '/'] then
          StrNum:=StrNum+S[i];
     end;
     Convert(S1);
end;
begin
clrscr;
LoadFile('G:/BP\BIN\NumFile.txt');
writeln(TextFile);
Writeln('');
Vibor(TextFile);
Write(StrNum);
readkey;
end.