По цифре (0..9), введенной с клавиатуры, напечатать название этой цифры. в программе паскаль

program qwe;
var
n:integer;
s:string;
begin
writeln('Введите цифру: ');
readln(n);
case n of
0: s:='Ноль (нуль) ';
1: s:='Один';
2: s:='Два';
3: s:='Три';
4: s:='Четыре';
5: s:='Пять';
6: s:='Шесть';
7: s:='Семь';
8: s:='Восемь';
9: s:='Девять';
end;
writeln(s);
readln;
end.