Задача на знакомства в лагере

[Mclaren]

Перезнакомить всех детей отряда, через одного, если есть пары знакомых.
например в отряде 8 детей.... 1 знаком с 4, а 4 с 7. значит надо к первому дознакомить 2, 3, 5, 6, 8. сделать прогу такую(на паскале)

тут надо ввести с клавы к-во знакомых пар и к-во детей отряда.... потом знакомые пары...

readln(n, m);
for i:=1 to m do
 begin
  readln(x1, x2);
  if (x[x1]=0) and (x[x2]=0) then
   begin
    inc(k);
    x[x1]:=k;
    x[x2]:=k;
   end;

или как помогите сделать прогу другим методом....

 p1:=x[1];
 p2:=0;
 for i:=2 to n do
    begin
    if (p1<x[i]) then p1:=x[i];
    if x[i]=0 then inc(p2);
    end;
  p:=p1+p2;
 if p=1 then writeln('‚ᥠбв㤥вл §Є®¬л')
  else
   begin
   writeln('Ќ*¤® ¤®§**Є®¬Ёвм ',p-1);
   for i:=2 to n do
      if x[i]=0 then writeln('1 ',i)
       else
        if (y[x[i]]=0) and (x[i]<>x[1]) then
         begin
          writeln('1 ',i);
          y[x[i]]:=1;
         end;
   end;

[Stilet]

1 знаком с 4

Это еще почему? Где это сказано?