[Resolvido] uniao vetor

Boa tarde

Tenho duvida sobre o seguinte exercicio

Construa um algoritmo que permita informar dados para 2 vetores inteiros de 5 posiçoes e apresente o conjunto uniao dos vetores, ou seja, mostrar os elementos que existem em ambos os vetores sem repetição (cada numero pode aparecer uma unica vez no resultado).

Meu código funcionou, porem quando um numero se repete no mesmo vetor ele aparece 2 vezes.

algoritmo "semnome"
// Função :
// Autor : ulfreitas
// Data : 12/7/2011
// Seção de Declarações
var
a, b : vetor[1..5] de inteiro
i, j : inteiro
inicio
// Seção de Comandos
para i <- 1 ate 5 faca
escreval("digite um numero inteiro para A")
leia(a[i])
escreval("digite um numero inteiro para B")
leia(b[i])
fimpara
para i <- 1 ate 5 faca
para j <- 1 ate 5 faca
se a[i] = b[j] entao
escreval(a[i])
fimse
fimpara
fimpara
fimalgoritmo

Como posso corrigir isso?