Ввод ' 352' , вывод - 'три пять два'

var   a: integer; begin   readln(a);   foreach c: char in a.ToString() do     case c of       '1': write('один ');       '2': write('два ');       '3': write('три ');       '4': write('четыре ');       '5': write('пять ');       '6': write('шесть ');       '7': write('семь ');       '8': write('восемь ');       '9': write('девять ');       '0': write('ноль ');     end; end.