PASCAL的高手进，看下这个有关并查集的题目！

if a[x]=x then get:=x
意思是找到了最最上层的根节点。
a[x]:=get(a[x])
这句话的效果是达到了路径压缩，即将整条路径上的点都指向根节点。
get:=a[x]
返回值

整个过程的目的是求得了某一节点的父亲节点，即所属的集合。并且达到了路径压缩的目的，节省了时间。