Дано целое число n меньше =(больше равно) 9999является ли это число палиндромом?все ли его цифры разные?

var n,p,d : longint; a : array [0..9] of boolean; v : boolean; begin   readln(n);   d:=n;   v:=false;   p:=0;   while d>0 do   begin     p:=p*10+(d mod 10);     if a[d mod 10]=true then v:=true else a[d mod 10]:=true;   end;   if p=n then writeln('Данное число палиндром');   if not(v) then writeln('Все цифры данного числа разные'); end. Я не знаю работает ли это, если не работает напиши мне. Я исправлю