С клавиатуры вводится двузначное число определить какая цифра больше

var a:integer;beginreadln(a);if (a>9) and (a<100) then begin if a div 10> a mod 10 then writeln('1 число больше') else begin if a div 10<a mod 10 then writeln('Второе число больше') else writeln('Числа равны'); end; end else writeln('вы ввели не двузначное число, попробуйте снова');end.