[donpedro]

me disculpo. ya lei la guia de estilo.

estoy utilizando el siguiente codigo pero no me ha dado resultado, porque la parte para cuando el monto que pague el estudiante sea mayor que el valor no se como manejarlo:

Código Delphi [-]
     var a,b,res,x:integer;
begin
     a:=strtoint(emontoapagar.text);
     b:=strtoint(dmdatos.aqfacturadvalor.asstring);

     dmdatos.aqfacturad.first;

//esto es para cuando el monto que va a pagar sea menor o igual al valor del primer cargo

      while not dmdatos.aqfacturad.eof do
begin
      if (b > 0) and (a < b) or (a = b) then
begin
      dmdatos.aqfacturad.edit;
      res:=b-a;
      dmdatos.aqfacturadvalor.asstring:=inttostr(res);
      dmdatos.aqfacturad.post;
break;
      dmdatos.aqfacturad.next;
end;