Pascal/Turbo Pascal - ayuda de panas

necesito corregir un programa de facturacion hecho por mi como proyecto pero cuando quiero sacar la suma del total de las filas, solo me da el total de la ultima fila que puedo hacer?

Que qué puedes hacer?, pues podrías empezar mostrandonos el código que falla :)