Данное четырехзначное число читается идиентично слева вправо и справа налево

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