izbaci parne(neparne) brojeve

//UKLANJA NEPARNE
PROCEDURE BrisiNeparne(VAR lista:brojevi);
VAR temp,tekuci:brojevi;
BEGIN
  WHILE (lista#NIL) AND (ODD(lista^.info)) DO
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
  END;
  IF lista#NIL THEN
    temp:=lista;
    WHILE temp^.veza#NIL DO
      tekuci:=temp;
      temp:=temp^.veza;
      IF (ODD(temp^.info)) THEN
        tekuci^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=tekuci;
      END;
    END;
  END;
END BrisiNeparne;
//UKLANJA PARNE
PROCEDURE BrisiParne(VAR lista:brojevi);
VAR temp,tekuci:brojevi;
BEGIN
  WHILE (lista#NIL) AND (NOT ODD(lista^.info)) DO
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
  END;
  IF lista#NIL THEN
    temp:=lista;
    WHILE temp^.veza#NIL DO
      tekuci:=temp;
      temp:=temp^.veza;
      IF (NOT ODD(temp^.info)) THEN
        tekuci^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=tekuci;
      END;
    END;
  END;
END BrisiParne;
_____________________________________________________________________________-
  WriteLn;
  BrisiParne(lista);
  WriteString('Parni brojevi iz liste su uklonjeni. ');
  WriteLn;
  Stampaj(lista);
  WriteLn;

  WriteLn;
  BrisiNeparne(lista);
  WriteString('Neparni brojevi iz liste su uklonjeni. ');
  WriteLn;
  Stampaj(lista);
  WriteLn;