Intersecção de Vetores

[Odyon 0]

Bom estou com uma tremenda dúvida nesse exercício o professor passou 5 exercícios para resolver travei nesse último..

"Construa um algoritmo que permita informar dados para dois vetores inteiros de 20 posições e apresente a interseção dos vetores. (obs. A interseção são os elementos repetidos em ambos os vetores, mas sem repetição.) Cada numero pode aparecer uma única vez no resultado."

Bom tentei fazer e ficou assim porém ele não está mostrando os números da maneira correta alguém poderia me ajudar?

 

var
a, b : vetor[1..20] de inteiro
i, j : inteiro
inicio
// Seção de Comandos
para i de 1 ate 5 faca
    escreval("Digite um numero para A")
    leia(a[i])
fimpara
para j de 1 ate 20 faca
    escreval("Digite um numero inteiro para  B")
    leia(b[j])
fimpara
para i de 1 ate 20 faca
    para j de 1 ate 20 faca
         se a[i] = b[j] entao
            escreval(a[i])
         fimse
    fimpara
fimpara
fimalgoritmo

[quitZAUMMM 18]

Olha eu acharia legal você usar um terceiro vetor auxiliar, e fazendo o seguinte:

- le o vetorA inteiro

- ai a cada leitura no vetorB já verifica se existe no vetorA, se não existir joga no vetorC

- imprime o vetorC no final

 

[]s