UNIT uElem;


INTERFACE
    TYPE
        TElem = {El tipo de dato que se defina};

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

    PROCEDURE Mostrar (elemento:TElem);

    FUNCTION Iguales (e1,e2:TElem):boolean;

    FUNCTION EsMayor(e1,e2:TElem):boolean;

IMPLEMENTATION

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

    PROCEDURE Mostrar (elemento:TElem);
        BEGIN
            {Depende del tipo de dato}
        END;{Mostrar}

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

    FUNCTION EsMayor(e1,e2:TElem):boolean;
        BEGIN
            {Depende del tipo de dato}
        END;{EsMayor}
END.