Lógica de programação - estrutura de repetição enquanto

na parte de tirar porcentagem quando eu coloco 3 sim e 1 não ele da 25% dos que respoderam não, mas quando coloco 3 não e 1 sim ele dá 100% dos que responderam não. Alguém pode ajudar ?

algoritmo "qnt"
// Função :
// Autor :
// Data : 08/04/2015
// Seção de Declarações
var
cont, totalS, totalN, totalSfeminino, totalNmasculino, totalSmasculino : real
quantidade, porcentagemHomem : real
sexo, resposta: caracter
inicio
cont<-1
enquanto cont <= 4 faca
   escreva("sexo M - masculino ou F - feminino : " )
   leia(sexo)
   escreva("voce gostou da novidade? (sim ou nao) : ")
   leia(resposta)
   se resposta="sim" entao
      totalS <- totalS + 1
   senao
      se resposta="nao" entao
         totalN <- totalN + 1
      fimse
   fimse
   quantidade <- quantidade + 1
   se (sexo="f") e (resposta="sim") entao
      totalSfeminino <- totalSfeminino + 1
   senao
      se (sexo = "m") e (resposta = "nao") entao
         totalNmasculino <- totalNmasculino + 1
         porcentagemHomem <- (totalNmasculino/quantidade) * 100
      fimse
   fimse
   cont <- cont + 1

fimenquanto
escreval ("a quantas pessoas disseram sim : " , totalS)
escreval ("a quantas disseram nao : " , totalN)
escreval ("a quantidade de mulheres que votaram sim : " , totalSfeminino )
escreva ("a porcentagem de homens que votaram nao : " , porcentagemHomem,"%")

// Seção de Comandos
fimalgoritmo