Problema con ejercicio en Delphi

[gerupc]

Hola,

estoy haciendo unos ejercicios en Delphi para la Universidad, y tengo algún problema con ellos. Es uno que ya comenté en un post hace una semana o así, pero repasando, me he dado cuenta de que me falla una cosa...

Os comento; tengo que realizar una división sin dividir ;-), es decir, haciendo la operación mediante restas sucesivas. Como ya he dicho, escribí sobre una duda que tenía y me ayudaron a resolverla. Pero ahora, me he dado cuenta de que tengo un problema con una variable. Con la variable dividendo, fijaos, hallo el cociente y el resto de la división, de la siguiente manera:

Código Delphi [-]
 if opcion = 2 then
          Begin
              Write('Introduce el dividendo: ');
              readln(dividendo);
              Write('Introduce el divisor: ');
              readln(divisor);
                  cociente := 0;
                  while divisor <= dividendo do
                    Begin
                       dividendo := dividendo - divisor; //Resto porque se detiene cuando la condicion no se cumpla
                       cociente := cociente + 1 //Va a repetirse tantas veces como vueltas dé el Bucle
                    end;
              writeln('El cociente de ',dividendo,' entre ',divisor,' es igual a ',cociente,' y el resto ',dividendo);
              readln;
          end;

Y claro, a la hora de presentar el resultado, me surje un conflicto con la variable dividendo, ya que presenta el resto cuando la uso para el cociente (antes del último end). No me permiten hacer este ejercicio con funciones, asi que ha de ser de esta manera.

He intentado el declarar alguna especie de variable dentro del bucle...pero nada no lo he conseguido, asi que si alguien me pudiese echar una mano, se lo agradecería mucho.

Un saludo,

Geru.