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