Pascal/Turbo Pascal - Division

Por favor alguien puede ayudarme con il codigo para realizare una division pero usando solo adicion y substraccion como operaciones del programa?. Esta division sera un procedure individual dentro de mio programa.
Gracias a todos!!!

Una solución sería hacer un ciclo de restas. haces
i:=0
j:=numero
while j<=divisor do
begin
j:=j-divisor
i:=i+1
end

Al final j contendrá el resto e i el cociente

Espero que sea a esto a lo que te refieres. SUERTE