Заменить цифры от 1 до 10 словами. Например: 1 — «один» и т.д. помогите составить…

Const n: array[1… 10] Of string=('один','два','три','сетыре','пять', 'шесть','семь','восемь','девять','нуль'); Var b,c: string; i,j: integer; Begin b: ='1234567890'; Write ('Введите цифру / число: '); read (c); For i: =1 To length (c) Do Begin j: =pos (c[i],b); write (n[j],'); End; End.