Как вычеслить совпадения в массиве? Опции

[Wild_klas]

Есть массив: имя, кол-во, и вес.

 P:Passenger = ((Name:'Lubkovsky';Number:3;Wt:2.5),
                      (Name:'Davudov';Number:5;Wt:7),
                      (Name:'Beluy';Number:4;Wt:5),
                      (Name:'Molodenova';Number:5;Wt:7.5),
                      (Name:'Sereda';Number:8;Wt:9.5));

Нужно определить следущее: имеються ли 2 человека с одинаковым кол-вом и разлиаються по весу не более чем на 0.5
Я задал так что есть совпадение:
Как вычеслить совпадения в массиве?код Pascal/Delphi

  (Name:'Davudov';Number:5;Wt:7),
   (Name:'Molodenova';Number:5;Wt:7.5),

А вот как это посчитать, и вывести? Подскажите пожалуйста.