请大家帮个忙 ……………… (150分)

请大家帮个忙 ………………
把 c版本数据结构的 2.2节线性表的顺序表示和现实的算法2.3，2.4 改为pascal ！多谢了！！！
如果是大好人的话，把2.3节链式表示 的算法2.8,2.9,2.10改一下，300分等候你！！！！
先来150分！！！！
定义一个数据结构，然后得到链表中的某个值！！！
大致是这样的，请大家帮他写完整点！！！
typedef struct LNode{
elemtype data
struct LNode *next ;
} LNode ,*linklist ;
Status GetElem_L(LinkList L, int i, ElemType &e)
{ p=L->next ;
j=1 ;
while (p&amp;&amp;j<i)
{ p=p->next ;++j;}
if (!p||j>i) return error ;
e=p->data
return ok;
}

我这儿有pascal版的数据结构

把源码贴出来！

等c的源码～

尊敬的gxcooo
可否发我一份先?
pangmiao2@sina.com

我改过问题了，代码也贴了点，请大家帮忙拉！！！
尊敬的gxcooo
xxhsh@263.net 给我一份！！！！

Status GetElem_L(LinkList L, int i, ElemType &amp;e)
{ p=L->next ;
j=1 ;
while (p&amp;&amp;j<i)
{ p=p->next ;++j;}
if (!p||j>i) return error ;
e=p->data
return ok;
}
呵，不好改，我只能用其它方法变一下，看一下其它高手！！

临时写的，可能有问题。
typedef struct LNode{
elemtype data
struct LNode *next ;
} LNode ,*linklist ;
type
PLNode=^LNode;
LNode=record
Data:ElemType;
NextLNode;
end;
LinkList=PLNode;
Status GetElem_L(LinkList L, int i, ElemType &amp;e)
{ p=L->next ;
j=1 ;
while (p&amp;&amp;j<i)
{ p=p->next ;++j;}
if (!p||j>i) return error ;
e=p->data
return ok;
}
function GetElem_L(L:LinkList;i:Integer;var e:ElemType):Status;
var
pLNode;
j:Integer;
begin
p:=L^.Next;
j:=1;
while (p<>nil) and (j<i)do
begin
p:=p^.Next;
Inc(j);
end;
if (p=nil) or (j>i) then
begin
Result:=error;
exit;
end;
e:=p^.Data;
Result:=ok;
end;

谢谢 creation-zy ！
数据结构都很不适应了！
以后在多多指导！

typedef struct LNode{
elemtype data
struct LNode *next ;
} LNode ,*linklist ;
type
PLNode=^LNode;
LNode=record
Data:ElemType;
NextLNode;
end;
LinkList=PLNode;
LNode ,*linklist ;－－－－－－－》LinkList=PLNode;
这句是不是有问题？

多人接受答案了。