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

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