Problema con restas sucesivas

[gerupc]

Hola,

haciendo unos ejercicios en Delphi, me he bloqueado en el siguiente:

Realizar un programa que nos permita calcular el cociente y el resto de la división de dos números enteros utilizando únicamente operaciones de suma y resta:La división se realizara a través de restas sucesivas.

12 / 3 = 12 – 3 = 9 1º resta
9 - 3 = 6 2º resta
6 - 3 = 3 3º resta
3 - 3 = 0 4º resta
cociente = 4 resto = 0

El resto, sé como conseguirlo mediante el bucle:

Código Delphi [-]
for i: 1 to cociente do
      Begin
          dividendo := dividendo - divisor;
      End;

Pero claro, el problema es que para ello necesito tener antes el valor del cociente, lo cual sería:

Código Delphi [-]
cociente := dividendo / divisor;

Pero como el enunciado dice que lo he de hallar mediante sumas y restas, no sé como, si con algún bucle, o no sé.

A ver si alguine me puede echar una mano.

Gracias por las futuras respuestas ;-)

Un saludo,

Geru.