smanjiStepenZaSt

// Smanjuje stepene monoma za uneto 'st'
PROCEDURE SmanjiZa (st:CARDINAL;p:Polinom;VAR  rez:Polinom);
VAR temp,tek:Polinom;
BEGIN
  Anuliraj(rez);
  IF (p#NIL) THEN
    Kopiraj(p,rez);
    IF (st#0) THEN
      temp:=rez;
      tek:=NIL;
      WHILE (temp # NIL) AND (temp^.st >= st) DO
        temp^.st:= temp^.st - st;
        tek:=temp;
        temp:=temp^.veza;
      END;
      IF temp#NIL THEN
        tek^.veza:=NIL;
        DisposePolinom(temp);
      END;
    END;
  END;
END SmanjiZa;