Дано число, определить двухзначное ли оно — Pascal(Паскаль)

var
x:integer;
begin
    writeln('Vvedite x');
    readln(x);
   if ((x>9) and (x<100)) then
    writeln('двузначное');
end.

var
x:integer;
begin
    writeln('Vvedite x');
    readln(x);
   if ((x div 10 < 10) and (x div 10 <> 0)) then
    writeln('двузначное');
end.