UNIT uElem;

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

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


IMPLEMENTATION

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