алгоритм сравнения больших чисел со сдвигом

[WOLFak]

Привет всем.
Для тех кто пытался читать или прочел С. Окулова -> Программирование в алгоритмах
Скачал книгу С. Окулова -> Программирование в алгоритмах
Дочитал до стр. 20 на 14 - 15 есть функция сравнения много разрядных чисел со сдвигом во втором числе
вроде так:
1. 576000
2. 576
Сдвиг 3 должно дать 2 - равны числа
но если чисто прочитать... я прочитал что там написано, вроде это работать совсем не должно, я переписал и точно, ничего не работает.

function MoreLong(Const A,B:TLong; sdvig:longint):byte;
var
 i:longint;
begin
 if A[0]>(B[0]+(sdvig)) then
  MoreLong:=0 else
   if A[0]<(B[0]+sdvig) then
    MoreLong:=1 else
     begin
      i:=A[0];
      while (i>sdvig) and (A[i]=B[i-sdvig]) do
       Dec(i);
      if i=sdvig then
       begin
        MoreLong:=0;
        for i:=1 to sdvig do
         if A[i]>0 then
          Exit;
        MoreLong:=2;
       end else
        MoreLong:=Byte(A[i]<B[i-sdvig]);
     end;
end;

111.jpg
подскажите где моя тупость кроется?
Зарание благодарен.