Обработка текста

[DOC26]

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

0 1 2 3 4 5 6 7 8 9
ZERO ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE
Формат входных данных
Во входном файле записана непустая строка, длина которой не превосходит 1 000 000. Строка завершается концом файла.
Формат выходных данных
Выведите в выходной файл сформированный текст.
Пример
input.txt output.txt
1234 ONE TWO THREE FOUR
1 and2 ONE and TWO

[Stilet]

Предлагаю систему:

var inn,outt:TStringList;i:integer;
begin
 inn:=TStringList.Create; inn.LoadFromFile('file1.txt');
 outt:=TStringList.Create; outt.LoadFromFile('file2.txt');
 outt.Delimiter:=' ';
 outt.DelimitedText:=outt.Text;
 for i:=0 to outt.Count-1 do begin
  outt[i]:=inn.Values[outt[i]];
 end;
 outt.SaveToFile('file3.txt');
 outt.Free;inn.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Учитывая:
Файл с шаблоном:

0=ZERO
1=ONE
2=TWO
3=THREE
4=FOUR
5=FIVE
6=SIX
7=SEVEN
8=EIGHT
9=NINE

входной файл

1 2 3 4