Uklanja sa (ne)parnih pozicija

// Uklanja elemente sa parnih pozicija iz liste
PROCEDURE BrisiSaParne(VAR lista:brojevi);
VAR temp, prethodni:brojevi;
    i:INTEGER;
BEGIN
  i:=1;
  IF lista#NIL THEN
    temp:=lista;
    WHILE temp^.veza # NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      INC(i);
      IF (NOT ODD(i)) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
    END;
  END;
END BrisiSaParne;

// Uklanja elemente sa neparnih pozicija iz liste
PROCEDURE BrisiSaNeparne(VAR lista:brojevi);
VAR temp, prethodni:brojevi;
    i:INTEGER;
BEGIN
  i:=1;
  IF lista#NIL THEN
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
    temp:=lista;
    WHILE temp^.veza # NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      IF (NOT ODD(i)) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
    END;
  END;
END BrisiSaNeparne;