Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида «четное двузначное число», «нечетное четырехзначное число» — Pascal(Паскаль)

uses crt;   
var n:integer;
 begin
 clrscr;
 write('N-> '); 
 readln(n);
 if n mod 2=0 then write('Четное ') 
else write('Нечетное ');
 case n of
 1..9:write('однозначное ');
 10..99:write('двузначное ');
 100..999:write('трёхзначное ');
 1000..9999:write('четырехзначное ');
 end;
 write('число');
 readln;
end.