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

Const n=20; var  a,b: array[1..n] of integer; i,j,k,m,c: integer;   begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(51)-25;   write(a[i]: 5);   end; writeln; j: =0; for i: =1 to n do   if a[i]< 0 then begin j: =j+1; b[j]: =a[i]; end; m: =j; for k : = 1 to m-1 do   for i : = 1 to m-k do       if (b[i]< b[i+1]) then          begin         c: =b[i]; b[i]: =b[i+1]; b[i+1]: =c;         end; writeln(' массив: '); for i: =1 to m do write(b[i]: 5); writeln; j: =0; for i: =1 to n do   if a[i]< 0 then begin j: =j+1; a[i]: =b[j]; end; writeln('полученный массив: '); for i: =1 to n do write(a[i]: 5); writeln; end. пример: исходный массив:   -15   -8   -6   -13   15   24     5   -2   14   -1   19   -2   -7   -8   -23   20   -2     7   -2   -10 массив:     -1   -2   -2   -2   -2   -6   -7   -8   -8   -10   -13   -15   -23 полученный массив:     -1   -2   -2   -2   15   24     5   -2   14   -6   19   -7   -8   -8   -10   20   -13     7   -15   -23

Program pribav; const n=5; type mas=array[1..n] of integer; var a,b : mas;   i : integer; begin  write('ââåäèòå ìàññèâ');   for i: =1 to n do    readln(a[i]);           writeln('èñõîäíûé ìàññèâ: ');         for i: =1 to n do          writeln(a[i]);                             for i: =1 to n do                  b[i]: =a[i]+25;                     writeln('íîâûé ìàññèâ: ');                       for i: =1 to n do                        writeln(b[i]); end.