Переписать код на Pascal

[Pavel143]

Здравствуйте, можете, пожалуйста, переписать данный код на язык Pascal?
Деление двух длинных чисел:

void Div(Big. Int A, Big. Int B, Big. Int C){ 
Big. Int tmp, tmp 2, tmp 3; 
long digit, i, j, up, down, last_success;
    Init(C, 0); 
    if (Compare(B, A)==1) return; 
    for (j=1; j<=B[0]-1; j++) 
                  tmp[j]=A[A[0]-B[0]+j+1]; 
    tmp[0]=B[0]-1; 
    for (i=A[0]-B[0]+1; i>0; i--){
                  Shift(tmp, 1); 
                  tmp[1]=A[i];
    //binary search 
    up=Osn-1; down=0; 
    while (up>=down){ 
           digit=(up+down)/2; 
           Init(tmp 2, 0); 
           Multon. Short(B, digit, tmp 2); 
    if (Compare(tmp, tmp 2)==-1) 
           up=digit-1;
    else { 
           down=digit+1; last_success=digit; 
    } 
   } 
   //end of binary search 
   Init(tmp 2, 0); 
   Multon. Short(B, last_success, tmp 2); 
   Sub(tmp, tmp 2, tmp 3); 
   Copy(tmp 3, tmp); 
   C[i]=last_success;
   } 
   C[0]=A[0]-B[0]+1;
    if (C[C[0]]==0) C[0]--;
    return;
}