Dúvida pseudocódigo - lógica de programação

Olá, pessoal!

Estou estudando lógica de programação com pseudocódigo no visualg.

Estou tentando resolver o seguinte problema:

Conte de 1 até o valor que o usuário digitar e exiba apenas os números pares dessa contagem.

Tentei fazer e cheguei no seguinte código, que não está resolvendo o problema:

Algoritmo "semnome"
     //   Contando até o valor que o usuário digitou
     //   e exibindo apenas os números pares dessa contagem
Var
   contador, valor, contadorPares: Inteiro
Inicio
      Escreval("Até quanto você quer contar?")
      Leia(valor)

      Para contador de 1 até valor faça
        Escreval(contador)
      FimPara

      contadorPares <- 0
      Se (contador % 2 = 0)  então
        contadorPares <- contadorPares + 1
      FimSe
      
     Escreval("Na contagem aparecem", contadorPares, " números pares")
Fimalgoritmo

Alguém pode me ajudar a entender o que estou fazendo de errado?

Desde já, muito obrigado.