如题，谢谢。
静态链表搞不清楚的是，如何对链表进行初始化，我是如下写的：不知道对不对。

const:max=5;
 type
  sp=record
  data:integer;
  cur:-1..max;
  end;
 slist=array[0..max] of sp;
  
 var
  s1:slist;
  s2:slist;
procedure ini_s1(var s:s1;m:integer);
  var
  i：integer;
  j:integer;
  beign
  for i:=0 to m do 
  beign
  s[i].cur:=i+1;//指定连接的链表指针
  s[i].data:=i;//指定每个节点的数据。——有点纳闷，这里假如不赋值的化，循环不会执行，只执行一次，就退出，但是 编译可以通过？？
   
  end; 
  j:=length(s);——–?这句就根本没有编译，也没有执行，为什么？？但是编译不报错。
  end;

begin

  ini_s1(s1,5);
  readln;
end;