Eu estou treinando o uso de procedimentos no VisualG e queria saber porque o código abaixo apresenta o erro: 

> "Nome duplicado para procedimento ou função: 'SEXO'". 

Relembrando, o objetivo principal não é otimizar o código, e sim saber o motivo do erro. Só coloquei um único procedimento 'Sexo', porém o VisualG insiste que o nome está duplicado.


    algoritmo "Seletor de Selecionados"
    // Função :  Selecionar selecionados, óbvio
    // Autor :  Rodrigo Matos Aguiar
    // Data : 16/10/2016
    // Seção de Declarações 
    var
       Sex, Rep: Caractere // Sex - Sexo, CorC - Cor do Cabelo, Rep - Repetir
       Id, ContM, ContF, CorC, HS, MS: Inteiro // Id - Idade, ContM - Contador Masculino, ContF - Contador Feminino
       // CorC - Cor do Cabelo, HS - Homens Selecionados, MS - Mulheres Selecionadas
    Procedimento Final(A, B: Inteiro)
    inicio
          EscrevaL("---------------")
          EscrevaL("Resultado Final")
          EscrevaL("---------------")
          EscrevaL("Total de homens com mais de 18 anos e cabelo castanho: ", HS)
          EscrevaL("Total de mulheres com idade entre 25 e 30 anos e cabelo louro: ", MS)
    FimProcedimento
    Procedimento Cabelo
    inicio
          EscrevaL("Qual a cor de cabelo?")
          EscrevaL("---------------------")
          EscrevaL("[1] Preto            ")
          EscrevaL("[2] Castanho         ")
          EscrevaL("[3] Louro            ")
          EscrevaL("[4] Ruivo            ")
    FimProcedimento
    Procedimento Sexo (var A, B: Inteiro)
    var C: Caractere
    inicio
          EscrevaL("Qual o sexo? [M][F] ")
          Leia(C)
          Escolha C
                  Caso "M"
                       A <- 1
                  Caso "F"
                       B <- 1
          FimEscolha
    FimProcedimento
    inicio
    // Seção de Comandos
    Repita
       EscrevaL("-----------------------")
       EscrevaL("Seletor de Selecionados")
       EscrevaL("-----------------------")
       Procedimento Sexo (ContM, ContF)
       EscrevaL("Qual a idade? ")
       Leia(Id)
       Se (Id > 18) entao
          ContM <- ContM + 1
       FimSe
       Se (Id > 25) e (Id < 30) entao
          ContF <- ContF + 1
       FimSe
       Procedimento Cabelo
       Leia(CorC)
       Escolha CorC
              Caso 2
                   ContM <- ContM + 1
              Caso 3
                   ContF <- ContF + 1
       FimEscolha
       Se (ContM = 3) entao
          HS <- HS + 1
       FimSe
       Se (ContF = 3) entao
          MS <- MS + 1
       FimSe
       EscrevaL("Quer continuar? [S][N] ")
       Leia(Rep)
    Ate (Rep = "N")
        Procedimento Final(HS, MS)
        fimalgoritmo