[bo][un]multiple1902[/un] 在 2008-10-19 19:15 的发言：[/bo]

type point=^node;
     node=record
            data:elemtype;
            next:point;
          end;
var h:point;
         
procedure insert(data:elemtype);
var t,s:point;
begin
  new(s);
 ...