UNIT uElem;

INTERFACE

    TYPE
        TElem = {El tipo de dato que tú definas};

    PROCEDURE Asignar (VAR variable:TElem; elem:TElem);

    PROCEDURE MostrarElem (elem:TElem);

    FUNCTION MayorQue (elem1,elem2:TElem):boolean;

    FUNCTION MenorQue (elem1,elem2:TElem):boolean;

    FUNCTION Iguales (elem1,elem2:TElem):boolean;

    FUNCTION MayorIgual (elem1,elem2:TElem):boolean;



IMPLEMENTATION

    PROCEDURE Asignar (VAR variable:TElem; elem:TElem);
        BEGIN
            variable := elem;
        END;{Asignar}

    PROCEDURE MostrarElem (elem:TElem);
        BEGIN
            {Depende del tipo de dato}
        END;{MostrarElem}

    FUNCTION MayorQue (elem1,elem2:TElem):boolean;
        BEGIN
            {Depende del tipo de dato}
        END;{MayorQue}

    FUNCTION MenorQue (elem1,elem2:TElem):boolean;
        BEGIN
            {Depende del tipo de dato}
        END;{MenorQue}

    FUNCTION Iguales (elem1,elem2:TElem):boolean;
        BEGIN
            {Depende del tipo de dato}
        END;{Iguales}

    FUNCTION MayorIgual (elem1,elem2:TElem):boolean;
        BEGIN
            {Depende del tipo de dato}
        END;{MayorIgual}


END.