Задача про строительство Вавилонской башни

[Rusl92]

Здравствуйте форумчане! Не могли бы вы мне помочь решить эту задачку:
Вавилонская башня
При строительстве Вавилонской башни, как известно, Бог смешал все языки. В результате оказалось, что каждый человек знает некоторое множество языков. Два человека могут передать друг другу информацию, если существует язык, который они оба знают. Руководитель стройки передает команды на известных ему языках. Те, кто эти команды получил, могут их передавать дальше, переводя на известные им языки. Определить количество людей, до которых доходят команды руководителя.
Входные данные:
Для удобства пронумеруем все языки числами от 1 до 50. Вначале задается количество людей n, а дальше идут описания того, какие языки знают эти люди. Для каждого человека записано сначала число M, определяющее количество языков, известных i-ому человеку, а затем перечисляются номера самих этих языков в возрастающем порядке (номера языков - числа от 1 до 50). Считается, что руководитель строительства - это человек с номером 1.
Выходные данные : Нужно вывести на экран одно число - количество человек, до которых может "дойти" отданная руководителем команда (включая самого руководителя).
Примеры:
1 тест:

5
2 1 2
1 1
2 2 3
0
2 4 5

ответ:
3

2 тест:

8
3 1 4 8
3 2 4 15
3 12 14 19
2 14 33
2 8 11
4 2 4 18 21
1 15
2 21 23

ответ:
6

Помогите пожалуйста, я пробовал, но не смог решитЬ! Заранее спасибо!

[alex_fcsm]

Во втором тесте должно быть 4

[alex_fcsm]

uses crt;
var a:array[1..100,1..50] of byte;
    ind:array[1..100] of byte;
    i,j,l,p,n:integer;
    flag:boolean;

begin
writeln('n');
readln(n);
clrscr;
for i:=1 to n do
 begin
  read(ind[i]);
  for j:=1 to ind[i] do
   read(a[i,j]);
 end;
p:=1;
flag:=false;
for i:=2 to n do
 begin
 flag:=false;
 for j:=1 to ind[i] do
  for l:=1 to ind[1] do
    if a[i,j]=a[1,l] then flag:=true;
 if flag then inc(p);
 end;
writeln(p);
end.

[Rusl92]

я решил намного быстрее с помощью множеств, но все равно спс