问题遇到的现象和发生背景
遇到的现象和发生背景，请写出第一个错误信息
用代码块功能插入代码，请勿粘贴截图。 不用代码块回答率下降 50%
运行结果及详细报错内容
我的解答思路和尝试过的方法，不写自己思路的，回答率下降 60%
我想要达到的结果，如果你需要快速回答，请尝试 “付费悬赏”
PLINKST(ha，hb )
1.p←next(ha)；q←next(hb)
2.pre←ha；hc←ha
3.while (p<>nil) AND (q<>nil) do
4.case
5. date(p)< date(q):
6.{u←p；p←next(p)；RET(u)}
7. date(p)= date(q):
8.{next(pre)←p；pre←p； p←next(p)；u←q；q←next(q)；RET(u)}
9. date(p)> date(q):
10.{u←q；q←next(q)；RET(u)}
11.end(case)
12.end(while)
13.next(pre)←nil
14.return
