Печать названия десятичных цифр (программа Паскаль)

program DICITS;
var  DIGIT: integer;
begin
writeln ('Введите цифру');
readln (DIGIT);
case DIGIT of
0: writeln ('нуль');
1: writeln ('один');

9: writeln ('девять');
else writeln ('это не цифра');
end;
end.