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;

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}
END.