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

{$APPTYPE CONSOLE}
Program Number_List;
uses sysutils;
Type NodePointer=^Node;
Node=Record
s:integer;
next:NodePointer;
     end;
Var first:NodePointer;
 
function InitNode:NodePointer;
var newNode:NodePointer;
begin New(newNode);
      newNode^.s:=Random(99)+1;
      newNode^.next:=NIL;
      InitNode:=newNode;
end;
 
procedure IncludeNode(newNode: NodePointer);
begin newNode^.next:=first;
      first:=newNode;
end;
 
procedure DeleteNode(k:integer);
var previos, current : Nodepointer;
    i:integer;
begin i:=0;
      current:=first;
      while current<>NIL do begin
      i:=i+1;
      if i=k then begin
      if first=current then first:=current^.next
      else previos^.next:=current^.next;
      dispose(current);
      break;
                  end;
      previos:=current;
      current:=current^.next;
                            end;
end;
 
procedure PrintNodeList;
var p:NodePointer;
begin writeln;
      p:=first;
      while p<>NIL do begin
      write (p^.s:3,' ');
      p:=p^.next;
                      end;
end;
 
var i,m,n:integer;
begin //{TODO -oUser -cConsole Main:Insert code here}
first:=Nil;
Randomize;
n:=17;
for i:=1 to n do IncludeNode(InitNode);
    PrintNodeList;
    writeln;
    m:=2;
    DeleteNode(m);
    PrintNodeList;
    readln;
  //ReadKey;
end.