Lógica de programação

este código ficou bom ou da para melhorar ?

algoritmo "semnome"
// Função :
// Autor :
// Data : 25/4/2015
// Seção de Declarações
var
precokwh, quantidadekwhM ,maior: real
residenciaT, comercialT, industrialT,mediaGeral : real
codigoConsumidor: inteiro
tipoConsumidor : caractere
inicio
// Seção de Comandos
maior <- 0

repita
   escreval("SISTEMA DE CALCULO DE CONSUMO DE ENERGIA ELÉTRICA")
   escreval("_________________________________________________")
   escreval(" ")

   escreva("Preço em Kwh consumido : ")
   leia(precokwh)
   escreva("Número do consumidor : ")
   leia(codigoConsumidor)
   escreva("quantidade de Kwh consumido durante o mês : ")
   leia(quantidadekwhM)
   escreva("Código do tipo de consumidor (R=Residencial, C=Comercial, I=Industria) : ")
   leia(tipoConsumidor)

   se (quantidadekwhM > maior) entao
      maior <- quantidadekwhM
   fimse
   se (tipoConsumidor = "R") entao
      quantidadekwhM <- precokwh*quantidadekwhM
      residenciaT <- residenciaT + quantidadekwhM
      escreval("Consumidor, tipo Residencial. Você pagará : ",quantidadekwhM)
      escreval("_________________________________________________")
      escreval(" ")
   senao
      se (tipoConsumidor = "C") entao
         quantidadekwhM <- precokwh*quantidadekwhM
         comercialT <- comercialT + quantidadekwhM
         escreval("Consumidor, tipo Comercial. Você pagará : ",quantidadekwhM)
         escreval("_________________________________________________")
         escreval(" ")
      senao
         se (tipoConsumidor = "I") entao
            quantidadekwhM <- precokwh*quantidadekwhM
            industrialT <- industrialT + quantidadekwhM
            escreval("Consumidor, tipo Industrial. Você pagará : ",quantidadekwhM)
            escreval("_________________________________________________")
            escreval(" ")
         fimse
      fimse
   fimse
ate (codigoConsumidor = 0)

mediaGeral <- (residenciaT+comercialT+industrialT)/3

escreval("                  CÁLCULO                        ")
escreval("_________________________________________________")
escreval(" ")
escreval("O maior consumo verificado : ",maior)
escreval("Total consumido por residenciais : ",residenciaT)
escreval("Total consumido por comerciais : ",comercialT)
escreval("Total consumido por industriais : ",industrialT)
escreval("A média geral do consumo : ",mediaGeral)
fimalgoritmo