Superlong, определить тип и операцию mod Опции

[_JC_]

Помогите решить задачку с непонятным типом!
Задача: опредилить тип переменной Superlong(Целое число записанное в виде массива длинной 256 байт) и операцию mod для чисел такого типа!
Заранее спасибо!

[Altair]

Длинночисленная арифметика.

тип переменной Superlong

:

type Tlong=array[0..255]of integer;
       Plong=^Tlong;

(Superlong - Tlong)

и операцию mod

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;

что бы разделить a на b вызовите : DivLongTwo(a,b,res,ost);
res -- результат деления a на b; ost -- остаток от деления.