Дан массив. выведите его элементы, которые встречаются в массиве только один раз

Var
a: array [1..10] of integer;
i,b : integer;
begin
randomize;
writeln('b=');
readln(b);
for i:=1 to 10 do
a[i]:=Random(10);
for i:=1 to 10 do
if A[i]= b then
writeln('есть',A[i])
else
writeln('нет такого ')
end.