Mark and label a particular value in ListPlot3D ?

Questions
, ,
1

I have plotted elevation data of Empire State Building within 10 miles range. My question is, how do i mark the exact point in red dot indicating it as, Empire State Building by label, and, an arrow mark joining them?

ListPlot3D[
     GeoElevationData[
      GeoDisk[Entity["Building", "EmpireStateBuilding::h583b"], 
       10 Quantity[1, "Miles"]]], MeshFunctions -> {#3 &}, Mesh -> 40, 
     PlotRange -> All]

Output:

ScreenShot2016-07-02at3.52.06AM.jpg
ScreenShot2016-07-02at3.52.06AM.jpg1022×780 225 KB

Thanks in advance.
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2016-07-02at3.52.06AM.png&userId=791995