Problema com operação com contador - AJUDAAAAAAA!!!

fiz um contador onde pra cada opção escolhida do menu o contador tem q subtrair um número x do contador. tem dois menus. e o contador só tá subtraindo do ultimo menu.
olhem:

continua <- "s"
carga <- 100
enquanto (continua <> "n") faca
escreval ("************************Monitoramento de Carga************************")
escreval (" ")
escreval ("Quilometragem que Precisa Percorrer?")
leia (km)
limpatela
escreval ("---Tipo de estrada---")
escreval (" ")
escreval ("1 - Estrada de Chão")
escreval ("2 - Brita")
escreval ("3 - Calçada")
escreval ("4 - Gramado")
escreval (" ")
escreval ("Digite uma opção: ")
leia (opcao)
se (opcao = 1) entao
carga <- carga -10
se (opcao = 2) entao
carga <- carga -25
se(opcao = 3) entao
carga <- carga -1
se(opcao = 4) entao
carga <- carga -25
fimse
fimse
fimse
fimse
limpatela
escreval ("---Topografia---")
escreval ("5 - Subida")
escreval ("6 - Buracos")
escreval ("7 - Descida")
escreval (" ")
escreval ("Digite uma opção: ")
leia (opcao)
se (opcao = 5) entao
carga <- carga -14
se (opcao = 6) entao
carga <- carga -10
se (opcao = 7) entao
carga <- carga +15
fimse
fimse
fimse
limpatela
escreval ("Refazer tudo? S/N")
leia (continua)
limpatela
fimenquanto