UNIT uElem;

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

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

    FUNCTION Iguales (v1,v2:TElem):boolean;


IMPLEMENTATION

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

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

END.