UNIT uElem;

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

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

        PROCEDURE Mostrar (e:TElem);

    IMPLEMENTATION

        PROCEDURE Asignar (VAR contenedor:TElem; elemento:TElem);
            BEGIN
                contenedor := elemento;
            END;

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

END.