Дано целое число n

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. Я не знаю работает ли это, если не работает напиши мне. Я исправлю