末位数放到首位是原来的二倍

我编写下面的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('已经搜索到了:',i);
  until (i*2=i2);
  if i*2=i2 then writeln('找到答案：',i