Me ajude nesse algoritmo vetor

Criar um algoritmo que preencha um vetor de 15 posições e em seguida receba um valor X qualquer. Seu algoritmo deverá fazer uma busca do valor de X no vetor e informar se o número foi encontrado ou se não foi encontrado, para exibir se o número procurado está no vetor. Se estiver irá apresentar quantas ocorrências. Caso contrário informará que não encontrou o número.
Não estou conseguindo fazer o contador e esta dando erro na linha onde se (NUMERO[i] = num) entao, mas a logica esta certa creio eu, e não estou conseguindo fazer o contador de numeros que eu quero encontrar dentro da matriz.




Algoritmo "vetores"
VAR
NUMERO: VETOR [1..15] de inteiro
I, num, cont: INTEIRO
inicio

cont <- 0
para i de 1 ate 15 faca
escreva("Digite um número: ")
leia (NUMERO[i])
fimpara

para i de 1 ate 15 faca
escreva(NUMERO[i])
fimpara

escreval(" ")
escreva("Digite o número a ser localizado: ")
leia (num)

se (NUMERO[i] = num) entao
escreval ("Foi encontrado ",cont" ocorrencia do numero",num)
senao
escreval("Numero não encontrado")
fimse
fimalgoritmo

Sei que é Old, mas resolvi postar em caso de dúvida:

Compare com o de cima, veja que faltou virgulas também.

Código:

Algoritmo "vetores"
VAR
NUMERO: VETOR [1..15] de inteiro
i, num, cont: INTEIRO
inicio


para i de 1 ate 15 faca
escreva("Digite um número: ")
leia (NUMERO[i])
fimpara

para i de 1 ate 15 faca
escreva(NUMERO[i])
fimpara

i<-1

escreval(" ")
escreva("Digite o número a ser localizado: ")
leia (num)

para i de 1 ate 15 faca
se (NUMERO[i] = num) entao
cont <- cont+1
fimse
fimPara


escreval ("Foi encontrado ",cont," ocorrencia do numero",num)
escreval("Numero não encontrado")
fimalgoritmo