brise vece koef od 2

PROCEDURE VeciOd2(VAR p:Polinom);
VAR
   tekuci,prethodni:Polinom;
BEGIN
   WHILE (p#NIL) AND (p^.k>2.0) DO
      tekuci:=p;
      p:=tekuci^.veza;
      DISPOSE(tekuci);
   END;
   tekuci:=p;
   prethodni:=NIL;
   WHILE (tekuci#NIL) DO
      IF (tekuci^.k>2.0) THEN
         prethodni:=tekuci^.veza;
         DISPOSE(tekuci);
         tekuci:=tekuci^.veza;
      ELSE
         prethodni:=tekuci;
     tekuci:=tekuci^.veza;
      END;
   END;
END VeciOd2;