delphi循环查询处理数据的问题，求高手！！

类似金字塔的算法

徒弟 师傅
2 = 1
3 = 2
4 = 3
5 = 3
6 = 4
7 = 5
..........此处省略N个数据.....

就上面列子而言，获取到最顶的师傅，和最底下的徒弟
以3为列，最终结果为
3的师傅：2，1 （3的师傅是2， 2的师傅是1）
3的徒弟：4,5,6,7 （3的徒弟是4,5， 4的徒弟是6,5的徒弟是7）
求获得算法
不好意思，只有5分，实在没分了

=============不好意思，自己搞定了==========

百度，关键词如下：
sql 树形 查询
使用sql语句查询出其上级所有节点或者下级所有节点才是正确的思路。

其实这是取200内质数的； for i:=2 to 15 do 这边的2 to 15是什么意思？->i是约数，对于200 内的15已经足够； begin for j:=i+1 to 200 do 这边为什么是j+1 to 200?->找大于约数的质数 begin if j mod i=0 then exclude(primen,j); 这个exclude 函数是什么意思？ 最好加个例子 end; end; 至于exlude,delphi 中有例子；好像在单元system