Длинная арифметика:деление двух чисел

[luis_elgoro]

Уважвемые форумчане! Буду очень рад если поможите. Использовал Pascal ABC.Не совсем получаеться реализовать деление двух длиных чисел.Пока получаеться только для чисел несильно отличающихся по кол-ву цифр(методом многократного вычитания),например 10-и и 9-и значные.При деление чисел с разницей кол-ва цифр больше 3, время выполнения программы становиться не допустимым.Попытался сделать деление столбиком но возникли проблемы в этой части програмы:

a:=Length(s1);
b:=Length(s2);
 
if (complong(s1,s2)=1) and (a<>b) then 
 
begin
i:=a-b;
 
u:=Copy(s1,0,b);
sch:=i+1;
if complong(u,s2)=-1 then  begin sch:=i; u:=Copy(s1,0,b+1);end; 
 
for nik:=1 to sch do
begin
krevetko:=chas(u,s2);
delim:=ost(u,s2);
if complong(ost(u,s2),s2)=-1 then
u:=delim+Copy(s1,b+nik-1,1);
writeln(u);
 
end;
 
 
writeln('Chasnoe ',krevetko);
writeln('Ostatok ',ost(u,s2));

где:
Сomplong(s1,s2):integer;-функция сравнения двух строк,возвращает 0 если они равны,1 если (s1>s2), -1 если (s1<s2)
Chas(s1,s2):string;- функция вычисляющая частное от деления двух строк одинаковой(или отличающихся на одину цифру) длины
ost(s1,s2):string;-функция вычисляющая остаток от деления двух строк одинаковой(или отличающихся на одину цифру) длины

Всю програму залил ниже,есть также функции для вычитания(raznost(s1,s2):string) и
умножение(proiz(s1,s2):string) длиных чисел.
Если кто подскажет алгоритм как реализовать деление c помощью этих функций,или по другому буду благодарен.