l'errore era: 'division by zero'
e sembra averlo eliminato togliendo la scritta uses crt;

come mai questa riga provoccava questo errore?