UNIT uElem;

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

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

        PROCEDURE Mostrar (elem:TElem);

    IMPLEMENTATION

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


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

            END;
END.