一个多位数，把最后一位拿到最前面，则是前一个数的两倍

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

{$apptype console}
program exp;
function len(x:longint):longint;
var y:longint;
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:longint;
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('已经搜索到了:',i);
  until (i*2=i2);
  writeln(i);
end.

做了一个多小时
最后一步是(99999999999999998/19)*2=10526