возьми два цикла for в одном ты последовательно берешь каждый элемент начиная с 1 по 35, во втором проверяешь прогоняешь каждый по каждому. то есть for i:=1 to 35 do где i индекс элемента массива а дальше пишешь for p:=i+1 to 35 do где p индекс элемента массива в котором ты проводишь сравнение так сказать, а i+1 потому что со следующего, его самого тебе считать ведь не надо, это глупо if a=a[p] then и тут делаешь счётчик n:=n+1; всё когда у тебя пройдет 35 раз по 35 элементам у тебя n будет столько показывать сколько одинаковых, ну а рандом думаю сам сделать, выводить тоже должен уметь.