Написати програму ,яка визначає чи є введене число двох-значним.)=)

Program zn;
uses crt;
var x: integer;
begin
clrscr;
write ('Введите число: ');
readln (x);
if (x>=10) and (x<=99) then writeln ('Число ', x, ' - двухзначное')
else writeln ('Число ', x, ' - не двухзначное');
readkey;
end.