algoritmo em portugol não funciona o teste de menor valor

[Pece Dutra]

O algoritmo a seguir calcula quase tudo corretamente, exceto o teste quanto a soma de menor valor.

 

''O algoritmo deve simular o lançamento de dois dados 36000 vezes, somar os dados e no final exibir a soma de maior ocorrência e a de menor ocorrência."

algoritmo "sorteio de dados de 6 lados"// Função :// Autor : Paulo Cesar Dutra Cardoso// Data : 09/11/2015// Seção de Declarações var    n,contador,dado1,dado2,soma,maior,menor:inteiro    v:vetor[2..12] de inteiroinicio// Seção de Comandos   Escreva("Quantas vezes devem ser lançados os dados?")   leia(n)   para contador<-1 ate n faca            aleatorio on            aleatorio 1,6                      leia(dado1)                      leia(dado2)            aleatorio off            soma<-dado1+dado2            v[soma]<-v[soma]+1   fimpara   limpatela   para soma de 2 ate 12 faca        se v[soma]>maior então           maior<-v[soma]       fimse        menor<-maior        se v[soma]<menor então           menor<-v[soma]        fimse   fimpara   para soma de 2 ate 12 faca        se v[soma]=maior então           escreval("O Que mais se repetiu foi", soma, " ,", maior, " vezes.")        fimse        se v[soma]=menor então           escreval("O Que menos se repetiu foi", soma, " ,", menor, " vezes.")        fimse   fimparafimalgoritmo