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

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