一个多位数，把末位数移到首位后，是原数的二倍，求这个数？

我编写下面的PASCAL程序，试图找到你说的数，但是好像这样的数不存在，我程序运行了半天没找到(搜索了longword的所有数)，程序如下： 

{$apptype console} 
program exp; 
function len(x:longword):longword; 
var y:longword; 
begin 
  y:=1; 
  x:=x div 10; 
  while x>0 do begin y:=y*10; x:=x div 10; end; 
  len:=y; 
end; 
var i,i1,i2,n:longword; 
begin 
  i:=10; 
  repeat 
    i:=i+1; 
    n:=len(i); 
    i1:=i mod 10; 
    i2:=i div 10 + i1 * n; 
    //writeln(i,#9,n,#9,i2); 
    if (i mod 1000000000=0) then writeln('已经搜索到了: