Деление многоразрядных чисел Опции

[Art87]

Уважаемые,
Сегодня задали задачу.
Выполнить деление двух многоразрядных чисел (свои придумать). Я в ауте .
Помогите плз.

[Art87]

volvo
То есть эта программа?

function FindBin(ost,b:Plong;const sp:integer):longint;
var up,down:word;
   c:Plong;
begin
  new©;
  down:=0;up:=_osn;
  while up-1>down do
     begin
        MulLongShort(b,(up+down) div 2,c);
        case MoreSdvigLong(ost,c,sp) of
         0:down:=(up+down) div 2;
         1:up:=(up+down) div 2;
         2:begin
              up:=(up+down) div 2;
              down:=up;
           end;
        end;
     end;
  MulLongShort(b,(up+down) div 2,c);
  if MoreSdvigLong(ost,c,0)=0 then SubLongTwo(ost,c,sp) else
     begin
        SubLongTwo(c,ost,sp);
        ost:=c;
     end;
  FindBin:=(up+down) div 2;
  dispose©;
end;



procedure MakeDel(a,b,res,ost:Plong);
var sp:integer;
begin
  ost^:=a^;
  sp:=a^[0]-b^[0];
  if MoreSdvigLong(a,b,sp)=1 then dec(sp);{!!!!!!!!!}
  res^[0]:=sp+1;
  while sp>=0 do
     begin
        res^[sp+1]:=FindBin(ost,b,sp);
        dec(sp);
     end;
end;



procedure DivLongTwo(a,b,res,ost:Plong);
begin
  fillchar(res^,sizeof(res^),0);res^[0]:=1;
  fillchar(ost^,sizeof(ost^),0);ost^[0]:=1;
  case MoreSdvigLong(a,b,0) of
   0:MakeDel(a,b,res,ost);
   1:ost^:=a^;
   2:res^[1]:=1;
  end;
end;

В ней ошибка.