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

[Art87]

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

[Art87]

Уважаемый volvo,
сильно не пинайте
но это хоть как-то похоже на то что надо?
(ЗЫ После двух рефератных защит за день сознание гаснет )

procedure WriteLong(var f:text;a:Plong);
var ls,s:string;
   i:integer;
begin
  str(_osn div 10,ls);
  write(f,a^[a^[0]]);
  for i:=a^[0]-1 downto 1 do
     begin
	str(a^[i],s);
	while length(s)<length(ls) do s:='0'+s;
	write(f,s);
     end;
  writeln(f);
end;



function MoreSdvigLong(a,b:Plong;const sdvig:integer):byte;


var i:integer;
begin
if a^[0]>(b^[0]+sdvig) then MoreSdvigLong:=0 else
     if a^[0]<(b^[0]+sdvig) then MoreSdvigLong:=1 else
	begin
	   i:=a^[0];
	   while (i>sdvig) and (a^[i]=b^[i-sdvig]) do dec(i);
	   if i=sdvig then
	      begin
		 MoreSdvigLong:=0;
		 for i:=1 to sdvig do
		    if a^[i]>0 then exit;
		 MoreSdvigLong:=2;
	      end else
		 MoreSdvigLong:=byte(a^[i]<b^[i-sdvig]);
	end;
end;



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;