Vinezof2

Olá, estou fazendo um curso de informática e neste curso foi proposta uma atividade de desenvolver um algoritmo para dar bônus a 4 funcionários dependendo dos dependentes desse funcionário, enfim, fiz o programa e ele funcionou o problema é que o cônjuge pode ser um dependente então eu fiz uma condição para que se o funcionário fosse solteiro ele não pudesse receber o bônus do cônjuge, mas sempre que o funcionário é solteiro a idade dos dependentes é lida duas vezes, não altera o fluxo do programa simplesmente muda o valor da variável, mas considero isso um erro e li e re-li o algoritmo e não consegui resolver isso.

Parte do algoritmo que contém o erro:

enquanto (quant_dependentes>contador) faca
      repita
         escreva ("Tipo do Dependente  (C= Cônjuge | X= Outros): ")
         leia (tipo_dependente)
      ate (tipo_dependente="C") ou (tipo_dependente="X")
      se (tipo_dependente="C") e (estado_civil="C") então
         enquanto (contador_conjuge<1) faca
            escreva ("Idade do Cônjuge: ")
            leia (idade_conjuge)
            bonus_funcionario1 := bonus_funcionario1 + 20
            contador_conjuge := contador_conjuge + 1
            contador := contador + 1
         fimenquanto
      senao
         repita
            escreva ("Idade do Dependente: ")
            leia (idade_dependente)
         ate (idade_dependente>0)
         contador := contador + 1
         se (idade_dependente<=17) então
            bonus_funcionario1 := bonus_funcionario1 + 15
         fimse
      fimse
   fimenquanto

Algoritmo inteiro:

algoritmo "Bônus Funcionário"
// Função : Dar bônus aos funcionários
// Autor :  João Vitor de A. Vinezof
// Data : 10/11/2017
// Seção de Declarações 
var
   funcionario1, funcionario2, funcionario3, funcionario4: literal
   idade_conjuge, dependente, tipo_dependente, idade_dependente, estado_civil: literal
   bonus_funcionario1, bonus_funcionario2, bonus_funcionario3, bonus_funcionario4: inteiro
   contador, contador_conjuge, quant_dependentes: inteiro
   
inicio
// Seção de Comandos
//Definindo os valores dos acumuladores e contadores
   bonus_funcionario1 := 40
   bonus_funcionario2 := 40
   bonus_funcionario3 := 40
   bonus_funcionario4 := 40
   contador := 0
   contador_conjuge := 0
//Funcionário 01
   escreval ("Dados do funcionário 1:")
   escreva ("Nome: ")
   leia (funcionario1)
   repita
      escreva ("Estado Civil  (C= Casado | S= Solteiro): ")
      leia (estado_civil)
   ate (estado_civil="C") ou (estado_civil="S")
   repita
      escreva ("Possuí Dependentes?  (N= Não | S= Sim): ")
      leia (dependente)
   ate (dependente="N") ou (dependente="S")
   se (dependente="S") então
      repita
         escreva ("Quantos? ")
         leia (quant_dependentes)
      ate (quant_dependentes>0)
   fimse
   enquanto (quant_dependentes>contador) faca
      repita
         escreva ("Tipo do Dependente  (C= Cônjuge | X= Outros): ")
         leia (tipo_dependente)
      ate (tipo_dependente="C") ou (tipo_dependente="X")
      se (tipo_dependente="C") e (estado_civil="C") então
         enquanto (contador_conjuge<1) faca
            escreva ("Idade do Cônjuge: ")
            leia (idade_conjuge)
            bonus_funcionario1 := bonus_funcionario1 + 20
            contador_conjuge := contador_conjuge + 1
            contador := contador + 1
         fimenquanto
      senao
         repita
            escreva ("Idade do Dependente: ")
            leia (idade_dependente)
         ate (idade_dependente>0)
         contador := contador + 1
         se (idade_dependente<=17) então
            bonus_funcionario1 := bonus_funcionario1 + 15
         fimse
      fimse
   fimenquanto
   escreval
   contador := 0
   contador_conjuge := 0
   quant_dependentes := 0
//Funcionário 02
   escreval ("Dados do Funcionário 2:")
   escreva ("Nome: ")
   leia (funcionario2)
   repita
      escreva ("Estado Civil  (C= Casado | S= Solteiro): ")
      leia (estado_civil)
   ate (estado_civil="C") ou (estado_civil="S")
   repita
      escreva ("Possuí Dependentes?  (N= Não | S= Sim): ")
      leia (dependente)
   ate (dependente="N") ou (dependente="S")
   se (dependente="S") então
      repita
         escreval ("Quantos? ")
         leia (quant_dependentes)
      ate (quant_dependentes>0)
   fimse
   enquanto (quant_dependentes>contador) faca
      repita
         escreva ("Tipo do dependente (C= Cônjuge | X= Outros): ")
         leia (tipo_dependente)
      ate (tipo_dependente="C") ou (tipo_dependente="X")
      se (tipo_dependente="C") e (estado_civil="C") então
         enquanto (contador_conjuge<1) faca
            repita
               escreva ("Idade do Cônjuge: ")
               leia (idade_conjuge)
            ate (idade_conjuge>0)
            bonus_funcionario2 := bonus_funcionario + 20
            contador_conjuge := contador_conjuge + 1
            contador := contador + 1
         fimenquanto
      senao
         repita
            escreva ("Idade do Dependente: ")
            leia (idade_dependente)
         ate (idade_dependente>0)
         contador := contador + 1
         se (idade_dependente<=17) então
            bonus_funcionario2 := bonus_funcionario2 + 15
         fimse
      fimse
   fimenquanto
   contador := 0
   contador_conjuge := 0
   quant_dependentes := 0
   escreval
//Funcionário 03
   escreval ("Dados do Funcionário 3: ")
   escreva ("Nome: ")
   leia (funcionario3)
   repita
      escreva ("Estado Civil  (C= Cônjuge | S= Solteiro): ")
      leia (estado_civil)
   ate (estado_civil="C") ou (estado_civil="S")
   repita
      escreva ("Possuí Dependentes?  (N= Não | S= Sim): ")
      leia (dependente)
   ate (dependente="N") ou (dependente="S")
   se (dependente="S") então
      repita
         escreva ("Quantos? ")
         leia (quant_dependentes)
      ate (quant_dependentes>0)
   fimse
   enquanto (quant_dependentes>contador) faca
      repita
         escreva ("Tipo do Dependente  (C= Cônjuge | X= Outros): ")
         leia (tipo_dependente)
      ate (tipo_dependente="C") ou (tipo_dependente="X")
      se (tipo_dependente="C") e (estado_civil="C") então
         enquanto (contador_conjuge<1) faca
            repita
               escreva ("Idade do Cônjuge: ")
               leia (idade_conjuge)
            ate (idade_conjuge>0)
            bonus_funcionario3 := bonus_funcionario3 + 20
            contador_conjuge := contador_conjuge + 1
            contador := contador + 1
         fimenquanto
      senao
         repita
            escreva ("Idade do Dependente: ")
            leia (idade_dependente)
         ate (idade_dependente>0)
         contador := contador + 1
         se (idade_dependente<=17) então
            bonus_funcionario3 := bonus_funcionario3 + 15
         fimse
      fimse
   fimenquanto
   contador := 0
   contador_conjuge := 0
   quant_dependentes := 0
   escreval
//Funcionário 04
   escreval ("Dados do Funcionário 4:")
   escreva ("Nome: ")
   leia (funcionario4)
   repita
      escreva ("Estado Civil  (C= Casado | S= Solteiro): ")
      leia (estado_civil)
   ate (estado_civil="C") ou (estado_civil="S")
   repita
      escreva ("Possuí Dependentes?  (N= Não | S= Sim): ")
      leia (dependente)
   ate (dependente="N") ou (dependente="S")
   se (dependente="S") então
      repita
         escreva ("Quantos? ")
         leia (quant_dependentes)
      ate (quant_dependentes>0)
   fimse
   enquanto (quant_dependentes>contador) faca
      repita
         escreva ("Tipo do Dependente  (C= Cônjuge | X= Outros): ")
         leia (tipo_dependente)
      ate (tipo_dependente="C") ou (tipo_dependente="X")
      se (tipo_dependente="C") e (estado_civil="C") então
         enquanto (contador_conjuge<1) faca
            repita
               escreva ("Idade do Cônjuge: ")
               leia (idade_conjuge)
            ate (idade_conjuge>0)
            bonus_funcionario4 := bonus_funcionario4 + 20
            contador_conjuge := contador_conjuge + 1
            contador := contador + 1
         fimenquanto
      senao
         repita
            escreva ("Idade do Dependente: ")
            leia (idade_dependente)
         ate (idade_dependente>0)
         contador := contador + 1
         se (idade_dependente<=17) então
            bonus_funcionario4 := bonus_funcionario4 + 15
         fimse
      fimse
   fimenquanto
   limpatela
   escreval (funcionario1,": Benefício de R$",bonus_funcionario1)
   escreval (funcionario2,": Benefício de: R$",bonus_funcionario2)
   escreval (funcionario3,": Benefício de: R$",bonus_funcionario3)
   escreval (funcionario4,": Benefício de: R$",bonus_funcionario4)
fimalgoritmo

Desde já, Obrigado.