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

Формулировка задачи:

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

                    Листинг программы
                
 
                        
                          
                    
Var A: array[1..10] of integer;
i, m:integer;
begin for i:=1 to 10 do begin
A[i]:= random(10)+1;
writeln('A[',i,']=', A[i]);
m:=A[1];
if m=A[i] then
writeln('Одинаковые есть')
else writeln ('Одинаковых нет'); end;
end.

Но ответов выходит много. Мне предлагали ввести переменную для количества ответов, но я не совсем понимаю, как это сделать.

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

Листинг программы

Var A: array[1..10] of integer;
i,j,m,k:integer;
begin for i:=1 to 10 do begin
A[i]:= random(10)+1;
writeln('A[',i,']=', A[i]);end;
For i:=1 to 10 do
 For j:=i+1 to 10 do
  m:=1;
if m=1 then
writeln('Одинаковые есть')
else writeln ('Одинаковых нет');
end.

Объяснение кода листинга программы

В данном коде используется два вложенных цикла for. Первый цикл идет от 1 до 10, и для каждого индекса i в массиве A присваивается случайное число от 1 до 10, затем это число выводится на экран. Второй цикл идет от i+1 до 10, и внутри него переменная m инициализируется единицей. Если m равно единице, то выводится сообщение Одинаковые есть, иначе выводится сообщение Одинаковых нет. Таким образом, данный код проверяет, есть ли в массиве A элементы с одинаковыми значениями, не обязательно стоящие рядом.