Напишите программу которая получает число от 1 до 1000 и определяет, однозначное, двузначное, трехзначное или четырехзначное это число

Program n1;
var a: integer;
begin
readln(a);
case a of
1..9: write('однозначное');
10..99: write('двузначное');
100..999: write('трехзначное');
1000: write('четырехзначное')
else write('ошибка');
end;
end.