Bueno, dejé de obsesionarme con hacerlo de una forma más directa y estoy haciendolo así
Código Delphi
[-]
var
cfinal : String;
cc, n, resto : integer;
nn, cociente : Double;
begin
......
nn:=StrToFloat(cFinal);
cociente := nn / 97;
cc := Trunc(cociente);
resto := trunc(nn - (cc * 97));
n := 98 - resto;