链表的定位函数 loc（I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc（L:li

链表的定位函数

loc(I:integer):pointer; {寻找链表中的第I个结点的指针}

procedure loc(L:linklist; I:integer):pointer;

var p:pointer;

j:integer;