Описать логическую функцию, проверяющую, есть ли в группе хотя бы два человека одного роста - PascalABC.NET

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

Помогите пожалуйста !!

                    Листинг программы
                
type имя = (Аня, Валя, Женя, Петя, Саша, Таня, Шура, Юра);
данные= record пол: (муж,жен); рост:140..200 end;
группа= array [имя] of данные;

Описать логическую функцию одинрост(ГР), проверяющую, есть ли в группе ГР хотя бы два человека одного роста.

Решение задачи: «Описать логическую функцию, проверяющую, есть ли в группе хотя бы два человека одного роста»

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

группа= array [имя] of данные;

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

Задается массив группа типа array [имя] of данные.
В цикле перебираются все элементы массива группа.
Для каждого элемента проверяется условие: если элемент равен имя, то выводится сообщение В группе есть хотя бы два человека одного роста и выполнение программы прекращается.
Если условие не выполняется, то программа продолжает перебирать элементы массива группа.
Если все элементы массива группа проверены и условие не выполнено, то выводится сообщение В группе нет хотя бы двух человек одного роста.