pascal:求1000以内二进制和十进制回文数的数

program huiwen;
var i:1..1000;
function hw2(i:integer):boolean;
   var a:string;k,j,l:integer;b:string;
   begin
     a:='';
     hw2:=true;
     while i>0 do
       begin
         str(i mod 2,b);
         a:=a+b;
         i:=i div 2;
       end;
     l:=length(a);
     for j:=1 to l div 2 do
     if a[j]<>a[l+1-j] then begin
                               hw2:=false;
            &n