вывести случайный массив и создать максимальное число совпадений

Суть проблемы в том, что надо вывести случайный массив и создать в последствии максимальное число совпадений элемента с его порядковым номером.
Delphi