Однонаправленный список. Необходимо реализовать процедуры

//Вывод на экран каждого второго элемента списка.
procedure outputListForTwoStep(head:ukaz);
var c,i:integer;
Begin
  writeln('==================');
  if head^.next=nil then
  Writeln('Пусто')
  else
   begin
    c:=0;
    head:=head^.next;
    While head<>nil do
      begin
        inc(c);
        //if c mod 2 = 0 then
        begin
        //Write(head^.inf,' ');
        head:=head^.next;
        end;
 
      end;
    while (head<>nil) do
    begin
      if c mod 2 = 0 then
      Write(head^.inf,' ');
      head:=head^.next;
    end;
    Writeln;
    writeln('==================');
   end;
 end;

//Добавление элемента перед каждым нечетным.
procedure addElemAfterFirstNotModElemList(var head:ukaz; var aData:integer);
var
  add: ukaz;
  tmp: ukaz; 
begin
If (head.next = nil) then
  begin
      begin
      SetConsoleTextAttribute(con, $C);
      writeln;
      writeln('======');
      writeln('Error!');
      writeln('======');
      SetConsoleTextAttribute(con, $A);
    end;
  end
  else
  begin
    tmp:= head^.next;
    while tmp <> nil do
    begin
      if odd(tmp^.inf) then
      begin
        add := createElem;
        add^.next := tmp^.next;
        tmp^.next := add;
        exit;
      end
      else
        tmp := tmp^.next;
    end;
  end;
end;

procedure outList(List : ukaz);
begin
  if List = nil then
    begin
      WriteLn('Пусто'); Exit;
    end;
  
  Write('Все элементы:');
  repeat
    Write(#32, List^.inf);
    List := List^.next;
  until List = nil;
  WriteLn;
end;

procedure outList_everySecond(List : ukaz);
var
  ShowMe : Boolean;
begin
  if (List = nil) or (List^.next = nil) then { Пустой или только один }
    begin
      WriteLn('Пусто'); Exit;
    end;
  
  Write('Каждый второй:');
  ShowMe := True;
  repeat
    ShowMe := Not ShowMe;
    if ShowMe then Write(#32, List^.inf);
    List := List^.next;
  until List = nil;
  WriteLn;
end;

{ Элемент с номером n перенести на 1 элемент ближе к началу списка
  (0 - начало списка, за ним 1, 2 и т.д.) }  
procedure stepToHead(var List : ukaz; n : Integer);
var
  i : Integer;
  PredPred, Pred, Cur : ukaz;
begin
  if n < 1 then Exit; { Выше головы не прыгнешь! }
  if List = nil then Exit;
  
  { попробуем получить n-тый }
  i := 0;
  PredPred := nil;
  Pred := nil;
  Cur := List;
  while i < n do
    begin
      Inc(i);
      PredPred := Pred;
      Pred := Cur;
      Cur := Cur^.next;
      if Cur = nil then Exit; { такого элемента нет в списке }
    end;
    
  if PredPred = nil then { Cur становится в голову списка: Cur -> List -> ... }
    begin
      List^.next := Cur^.next;
      List := Cur;
      List^.next := Pred;
    end
  else { Перестроим: ... -> PredPred -> Cur -> Pred -> ... }
    begin
      Pred^.next := Cur^.next;
      PredPred^.next := Cur;
      Cur^.next := Pred;
    end;
end;

var
  head, cur : ukaz;
  i : Integer;
begin
  head := nil;
  for i := 11 downto 1 do
    begin
      new(cur);
      cur^.inf := i;
      cur^.next := head;
      head := cur;
    end;
    
  outList(head);
  outList_everySecond(head);
 
  stepToHead(head, 5);
  outList(head);
end.