Hola:
Hace mucho que no veo código turbo pascal, pero te recomiendo sangrar las sentencias para que sea más legible (tal vez hubiera sido mejor usar el botón code, o html o php... este último incluso colorea el código)
La verdad es que este subforo no es el adecuado, así que voy a reportar este mensaje, así te podrán ayudar mejor.
Viéndo por encima el código, no he visto una inicialización de la variable B... aunque no recuerdo si eso importa.
saludos