Как преобразовать цыфры в буквенное их выражение

[Makspane]

вот задача, есле кто может, гляньте... чет я в ней малек не разобрался
1) створити програму що прочитує текст із файлу і виводить його на екран, замінюючи , цифри від 0 до 9 на слова "нуль", "один" і т.д. починаючи кожне речення з нового рядка

[W0LF]

1. Не указана среда разработки.
2. Русский форум - русский текст, тут Вам не лингвисты. (Хотя я с UA)

[Stilet]

Даю на самогон:

const a:array[0..9] of string=('Адын','Два','Тры','Чотыры','Пяттъ','Шостка','Симка','8','девятюха');
var i,v,e:integer; s:string;
begin
 s:='12павп5468';
 for i:=0 to 9 do s:=StringReplace(s,IntToStr(i),a[i],[rfreplaceall]);
... Выводим s 
end;

может не самое быстрое но работать должно.

[Makspane]

;
      const
      a:array[0..9] of string=('Адын','Два','Тры','Чотыры','Пяттъ','Шостка','Симка','8','девятюха');
var
  Form1: TForm1;

 i,v,e:integer; s:string;
   f:textfile;

   s1:string;
   j,k,l:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'in.txt');
reset(f);
read(f,s);
begin
 for i:=0 to 9 do s:=StringReplace(s,IntToStr(i),a[i],[rfreplaceall]);
listbox1.Items.Add(s);
end;

Вот так??только оно пишет ошибку на сонст ...там где тайп

[Stilet]

оно пишет ошибку

И? Где? Не вижу ошибки?
Хотя... Я забыл в начало массива дописать 'ноль'...

[Makspane]

можешь поправить, чтоб она полностью правильно работала по всем условии???плиз))

Сообщение от Stilet

И? Где? Не вижу ошибки?
Хотя... Я забыл в начало массива дописать 'ноль'...

можешь полностью єту прогу доредактировать, чтоб она полностью норм работала?? заранее спасибо)

[Stilet]

Нет. Не могу. Я тебе показал путь - идти по нему твое предназначение. Не хочешь не делай.

[Makspane]

а где ноль надо дописать хотяб подкажи..где там в масиве ??

[Hacker19_90]

а где ноль надо дописать хотяб подкажи..где там в масиве ??

const a:array[0..9] of string=('НОЛЬ','Адын','Два','Тры','Чотыры','Пяттъ','Шостка','Симка','8','девятюха');

[Makspane]

Сообщение от Hacker19_90

const a:array[0..9] of string=('НОЛЬ','Адын','Два','Тры','Чотыры','Пяттъ','Шостка','Симка','8','девятюха');

а как сделать чтоб после точки оно следующее предложение переводило на следующие строку?