Ввод ' 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.