anchor.diff:    la:=Length(a);
     lb:=Length(b);
     while (la<>0) and (byte(a[la-1+BIntBase])=0) do dec(la);
  -  while (lb<>0) and (byte(a[lb-1+BIntBase])=0) do dec(lb);
  +  while (lb<>0) and (byte(b[lb-1+BIntBase])=0) do dec(lb);
     xa:=la+lb;
     SetLength(x,xa);
     if xa<>0 then
  
positive.code:    end;
  end;
  
  end.
  
negative.code: function Multiply(const a,b:TBInt):TBInt; overload;
  procedure DivMod(const a:TBInt;b:byte;var q:TBInt;var m:byte); overload;
  procedure DivMod(const a,b:TBint;var q,m:TBint); overload;
  function Power(const a,b:TBInt):TBInt;
  //function PowMod(const a,b,n:TBint):TBInt;
  
  implementation
  
  