Данное четырехзначное число читается одинаково слева направо и справа налево (программа Паскаль)

uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>999)and(a<=9999);
writeln('Данное число читается одинаково справа налево и слева направо?');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end