Cálculo / Validación del IBAN

[pacopenin]

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;