Michael Pereira Cabral

[Sou leigo ainda, me desculpem], Fiz esse pseudocódigo no VisualG usando estrutura repita, mas toda vez que eu coloco a resposta "N" ele trava tudo e fecha programa. Não consigo achar porque está dando errado, se alguém puder me ajudar  
 
Faça um programa usando a estrutura “repita” que leia a idade de várias pessoas. A cada laço, você deverá perguntar para o usuário se ele quer ou não continuar a digitar dados. No final, quando o usuário decidir parar, mostre na tela:
a) Quantas idades foram digitadas
b) Qual é a média entre as idades digitadas
c) Quantas pessoas tem 21 anos ou mais.
 
Algoritmo "semnome" Var contador, soma, idade, contador21: inteiro resposta: caractere media: real Inicio contador <- 0 soma <- 0 contador21 <- 0 repita escreva ("Digitea idade: ") leia (idade) se idade >= 21 entao contador21 <- contador21 + 1 fimse soma <- soma + idade contador <- contador + 1 escreva ("Quer continuar? {S/N] ") leia (resposta) até maiusc (resposta) = "N" media <- soma / contador escreval ("Foram digitadas ", contador, " idades") escreval (" Media de idade é: ", media) escreval ("Tem ", contador21, " pessoas com mais de 21 anos") Fimalgoritmo