vetores

pessoal comecei a entender sobre vetos consegui fazer execercios bem facil

estou com um mas complicado para o meu conhecimento gostaria q você mi dessem onde estou errado e o q eu poderia fazer para concertalo

tenho q montar e ler um vetor com 15 posições depois q ele tiver montado tenho q ler 7 numeros inteiros e escrever quais são os numeros sao iguais aos dos vetores

CODE
var
numeros : vetor[1..5] de inteiro

num, cont : inteiro

inicio

cont:= 1

enquanto cont <= 5 faca

leia (numeros [cont])

cont:= cont + 1

fimenquanto

enquanto cont<= 5 faca

leia (num)

se (num) = (numeros[cont]) entao

escreva (num, numeros[cont])

cont:= cont + 1

fimse

fimenquanto

fimalgoritmo