UNIT uPrior;

INTERFACE
    TYPE
        TPrior = 0..6;

{MayorPrior,AsignarPrior}

    PROCEDURE AsignarPrior (VAR variable:TPrior; elem:TPrior);

    FUNCTION Igual (v1,v2:TPrior):boolean;

    FUNCTION MayorPrior (prior1,prior2:TPrior):boolean;
IMPLEMENTATION

    PROCEDURE AsignarPrior (VAR variable:TPrior; elem:TPrior);
        BEGIN
            variable := elem;
        END;{AsignarPrior}

    FUNCTION MayorPrior (prior1,prior2:TPrior):boolean;
        BEGIN
            MayorPrior := (prior1 > prior2);
        END;{AsignarPrior}


    FUNCTION Igual (v1,v2:TPrior):boolean;
        BEGIN
            Igual := (v1=v2);
        END;

END.