Media numero pares...

Bom pessoal... Ja tentei de todas as formas que conheço e nada... Preciso calcular a média dos números pares...

O exercicio pede o seguinte:

Faça um algoritmo que receba vários números, calcule e mostre:a. A soma dos números digitados

b. A quantidade de números digitados

c. A média dos números digitados

d. O maior número digitado

e. O menor número digitado

f. A média dos números pares

Finalize a entrada de dados caso o usuário informe o valor 0.

Meu algoritimo ficou assim:

algoritmo "Exercicio 03-07"
var
numero,soma,quantidade,maior,auxiliar,menor,media,soma_pares,media_pares,quantiade_pares:real
inicio
escreval("Este programa tem o objetivo de escontrar:")
escreval("A soma dos números digitados.")
escreval("A quantidade de números digitados.")
escreval("A média dos números digitados.")
escreval("O maior número digitado.")
escreval("O menor número digitado.")
escreval("A média dos números pares.")
escreval("Para finalizar a entrada de dados, digite 0.")
repita
escreva("Por favor, digite um número para que sejam feitos os cálculos a cima: ")
leia(numero)
se numero<>0 entao
soma<-soma+numero
quantidade<-quantidade+1
se numero>maior entao
maior<-numero
fimse
se auxiliar=0 entao
menor<-numero
senao
se numero<auxiliar entao
menor<-numero
fimse
fimse
se numero mod 2=0 entao
soma_pares<-soma_pares+numero
quantidade_pares<-quantidade_pares+1
media_pares<-soma_pares/quantidade_pares
fimse
auxiliar<-numero
media<-soma/quantidade
fimse
ate numero=0
escreval("A soma dos números digitados é:",soma,".")
escreval("A quantidade de números digitados é:",quantidade,".")
escreval("A média dos números digitados é:",media,".")
escreval("O maior número digitado é:",maior,".")
escreval("O menor número digitado é:",menor,".")
escreval("A média dos números pares é:",media_pares,".")
fimalgoritmo

Gostaria de pedir soh mais uma coisinha... Sera que alguem de voces conseguem diminuir meu codigo, sei la... Existe alguma maneira que eu possa remover algumas variaveis, ele parece tao poluido...

Desde ja...

Grato...