Написать программу, которая проверяет число на двузначность паскаль

Program art;
var 
 a: integer;
begin 
 writeln('Введите число:'); 
 readln(a); 
 if (a>=10) and (a<=99) then writeln('Число двузначное') 
  else writeln('Число не является двузначным')
end.