Составить алгоритм и написать программу для преобразования цифр в слова

begin

 var a: array of string[6] :=  

 ('ноль', 'один', 'два', 'три', 'четыре',

  'пять', 'шесть', 'семь', 'восемь', 'девять');

 var n := Seq(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);

 foreach var x in n do Println(x, a[x])

end.