Односвязный список, удаление первого элемента

Program z4;
type 
  elem=record 
         a:longint;
         next:longint;
       end;
var          
  sp:array[1..1000] of elem;      
  first,free,i:longint; 
procedure NewSP(var x:longint);
  begin
    x:=free;
    free:=sp[free].next;
  end;
procedure DisposeSP(x:longint);
  begin
    sp[x].next:=free;
    free:=x;
  end;
procedure AddFirst(x:longint);
  var
    second:longint;
  begin
    NewSP(second);
    sp[second].a:=x;
    sp[second].next:=first;
    first:=second;        
  end;
procedure ListSp;
  var 
    second:longint;
  begin
    second:=first;
    while second<>0 do
      begin
        write(sp[second].a,' ');
        second:=sp[second].next;
      end;
    writeln;  
  end;
procedure DelFirst;
  begin
  end;
procedure AddLast(x:longint);
  begin
  end;  
procedure DelLast;
  begin
  end;  
procedure AddN(x,n:longint);
  begin
  end; 
procedure DelN(n:longint);
  begin
  end;  
begin
  free:=1;
  for i:=1 to 999 do
    sp[i].next:=i+1;
  sp[1000].next:=0;
  
  first:=0;
  
  AddFirst(1);
  ListSp;
  AddFirst(2);
  AddFirst(3);
  ListSp;
end.