Un'ultima correzione; nella function Esponenziale il valore iniziale della variabile Somma è 1 dunque alla riga 23 bisogna scrivere:

Somma:=1;

Ciao.