Написать программу, которая довщоляе по введенной цифру от 0-9 вивестий ее словесный аналог

program test;

var a:byte;

begin

readln(a);

case a  of

0: writeln ('ноль');

1: writeln ('один');

2: writeln ('два');

3: writeln ('три');

4: writeln ('четыре');

5: writeln ('пять');

6: writeln ('шесть');

7: writeln ('семь');

8: writeln ('восемь');

9: writeln ('девять');

else writeln ('Неверно введено число');

end;

end.