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

[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
Я задал так что есть совпадение:

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

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

[maxionans]

в цикле проверяешь:

for I := 0 to High( P ) do
  for J := I + 1 to High( P ) do
  begin
    if P[ I ].Number = P[ J ].Number then
      if Abs( P[ I ].Wt - P[ J ].Wt ) <= 0.5 then
        begin
          // Здесь обрабатываешь совпадение
        end;
  end;

[Wild_klas]

maxionans, спасибо Вам большое
Но у еще возникла проблема, нужно вывести Writeln('Takux sovpadenuy net'); (ну в случае если их нет). делал через else получается что оно в цикле и его выводит много раз. Кроме того как это сделать через отдельный If есть какие-то варианты?

[Hacker19_90]

Попробуй так

flag := false;
for I := 0 to High( P ) do
  for J := I + 1 to High( P ) do
  begin
    if P[ I ].Number = P[ J ].Number then
      if Abs( P[ I ].Wt - P[ J ].Wt ) <= 0.5 then
        begin
            flag := true;
          // Здесь обрабатываешь совпадение
        end;
  end;
if flag = false then
    Writeln ('Sovpadenii net');

[Wild_klas]

Благодарю, Hacker19_90!