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