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

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.