Está dando algum erro quando calcula o menor e o maior aí a média tá dando errado.

programa
{ 
 funcao inicio()
 {
  real n, menor=0, maior=0,  media
  caracter s

          escreva ("Digite 'S' para começar :")
  leia(s)

  faca{
   escreva("Número:")
   leia(n)

          
  se(n<=maior){
  maior = menor
  menor = n 
   }se(n>=menor){ 
   menor = maior
   maior = n
    
   }
   media = (maior + menor)/2
   escreva ("Deseja continuar? 'Y' se sim e 'N' se não:")
   leia (s)
  }enquanto(s== 'y' ou s=='Y')
  
  escreva("Número maior: ", maior," - ", "Número menor: ", menor)
  escreva("\n\nMédia entre o menor e o maior: ", media)
 }
}