Yo lo probe pero me dio otros errores.
Agregando el "End;" al final del case como dijo Felipe, a demas de leer p al principio antes del read(operacion) he inicializando "total", me quedo funcionando bien.
Agregando el "End;" al final del case como dijo Felipe, a demas de leer p al principio antes del read(operacion) he inicializando "total", me quedo funcionando bien.