nhập 1 dãy đếm các số từ a đến b có bao nhiêu số đối xứng?????????

uses crt;
var i,a,b,d:longint;

function dx(a:longint):longint;
var kq:longint;
begin
   kq:=0;
   repeat
      kq:=kq*10+(a mod 10);
      a:=a div 10;
   until a=0;
   exit(kq);
end;

begin 
clrscr;
   write('Nhap a,b: ');readln(a,b);
   for i:=a to b do   
      if i=dx(i) then inc(d);
   writeln(d);
readln
end.

uses crt;

Var
A:array[1..10000000] of longint;
n,i,j,d:longint;
S:string;
 function dx(x:longint):boolean;
  begin           clrscr;
   str(x,S);  dx:=true;
   for j:=1 to length(S) do if S[j]<>S[length(S)-j+1] then dx:=false;
  end;
Begin
 readln(n); d:=0;
 for i:=1 to n do read(A[i]);
 for i:=1 to n do if dx(A[i]) then write(A[i],' ');
Readln;
End.