26791: 找树根和孩子

题目描述
给定一棵树，输出树的根root，孩子最多的结点max以及他的孩子。
输入
第一行：n（结点个数），m（边数）。
以下m行；每行两个结点x和y，表示y是x的孩子。
输出
第一行：树根：root。
第二行：孩子最多的结点max。
第三行：max的孩子。
样例输入

8 7
4 1
4 2
1 3
1 5
2 6
2 7
2 8

样例输出

4
2
6 7 8

program p26791;
type
  treetype=record
     father:integer;
     num:integer;
     child:array[1..100] of integer;
   end;
var
  tree:array[1..100] of treetype;
  n,m:integer;
  procedure init;
    var e,i,j,k,x,y:integer;
    begin
       readln(n,m);
       for i:=1 to m do
          begin
             readln(x,y);
             tree[y].father:=x;
             inc(tree[x].num);
             tree[x].chil