Определить, есть ли в массиве элементы с одинаковыми значениями, не обязательно стоящие рядом

begin
  var mass:= ReadString('Для автоматического заполнения введите - y').ToLower = 'y' ? ArrRandomInteger(ReadInteger('Введите количество элементов: '), ReadInteger('Введите минимальное значение генерации: '), ReadInteger('Введите максимальное значение генерации: ')).Println('; ') : ReadString('Введите значения через пробел: ').Split(' ').Select(x -> integer.Parse(x));
  Writeln('Не повторяющиеся элементы последовательности: ', mass.Where(y -> mass.Where(x -> y = x).Count <= 1));
  Writeln('Повторяющиеся элементы последовательности: ', mass.Where(y -> mass.Where(x -> y = x).Count > 1).Intersect(mass));
end.

  Writeln('Повторяющиеся элементы последовательности: ', 
    mass.GroupBy(x -> x).Where(g -> g.Count > 1).Select(g -> g.Key));

program ru;
const n1=10;
var A:array[1..n1] of integer;
    i,b,n,j:integer;
begin
 randomize;
 write('Массив: ');
 readln(n);
 for i:=1 to n do
  begin
   A[i]:=random(10)+1;
   writeln('A [',i,']=', A[i]);
  end;
 for i:=1 to n do
 for j:=i+1 to n do
 if A[i]=A[j] then b:=1;
 if b=1 then
 writeln('Одинаковые есть')
 else writeln('Одинаковых нет');
end.