链表的pascal教程

我会，你先看看我写的链表程序吧，再有什么不懂的就问我吧。type
a=^lianbiao;
lianbiao=record
data:integer;
next:a;
end;
var
h,p1,p2:a;
i:integer;
begin