UNIT uElem;

    INTERFACE
        TYPE
            TElemento = {El tipo de dato que tú definas};

    PROCEDURE Asignar (VAR variableSP:TElemento; elementoSP:TElemento);

    FUNCTION Igual (e1,e2:TElemento):boolean;


    IMPLEMENTATION

    PROCEDURE Asignar (VAR variableSP:TElemento; elementoSP:TElemento);
        BEGIN
            variableSP := elementoSP;
        END;{Asignar}

    FUNCTION Igual (e1,e2:TElemento):boolean;
        BEGIN
            Igual := (e1 = e2);
        END;


END.