Задача с олимпиады

type
{ массив пар }
    M = array[1..200, 1..2] of integer;

{ вспомогательный массив для отметки идентификаторов проверенных участников }
    T = array[1..200] of integer;
var
    C, groups_total, i: integer;

procedure familiarity(id: integer);
var
    j: integer;
begin

T[id] := 1;

for j := 1 to C do
    begin

    if M[j][1] = id and T[M[j][2]] = 0 then familiarity(M[j][2]);
    if M[j][2] = id and T[M[j][1]] = 0 then familiarity(M[j][1]);

    end;

end;

begin

{ ...читаем количество пар в переменную C... }
{ ...читаем пары в массив M... }

for i := 1 to 200 do T := 0;

groups_total := 0;

for i := 1 to C do
    begin

    if T[M[1]] = 0 then
        begin

        groups_total := groups_total + 1;
        familiarity(M[1]);

        end;

    end;

{ groups_total содержит количество выделенных групп со знакомыми участниками }

end.