adding text above bins of histogram

I have the following histogram:

ClearAll[texture]
texture[ms_ : {Black, White}, m_ : 100] := 
Texture@RegionPlot[True, {x, 0, 1}, {y, 0, 1}, 
MeshFunctions -> {# - #2 &}, Mesh -> m, MeshStyle -> None, 
MeshShading -> ms, Frame -> False, Axes -> False, 
PlotRangePadding -> 0, ImagePadding -> 0, BoundaryStyle -> None];

data1 = {0.157, 0.147, 0.127, 0.110, 0.103, 0.103, 0.053, 0.053, 0.047, 0.040, 0.033, 0.020, 0.003, 0.003};
data2 = {0.008, 0.008, 0.018, 0.029, 0.035, 0.042, 0.049, 0.049, 0.111, 0.111, 0.118, 0.133, 0.144, 0.145};

styles1 = {LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue, LightBlue};
styles2 = texture /@ Thread[{White, {LightBlue, LightBlue, LightBlue, LightBlue,LightBlue, LightBlue, LightBlue, LightBlue, LightBlue,LightBlue, LightBlue, LightBlue, LightBlue, LightBlue}}];

{sdata1, sdata2} = MapThread[Style, #] & /@ {{data1, styles1}, {data2, styles2}};

BarChart[{sdata1, sdata2}, BarSpacing -> None, 
PlotTheme -> "Detailed", 
ChartLabels -> {{Style["Experiment", FontFamily -> "Times"], 
Style["Theory", FontFamily -> "Times"]}, None}, 
LabelStyle -> {28, GrayLevel[0]}, ImageSize -> Large, 
ChartElementFunction -> System`BarFunctionDump`TextureBar, 
PlotLabel -> Style["Histogram", FontFamily -> "Times"]]

Which looks like:
enter image description here

How can I add the texts: $p_0$, $p_1$, …, $p_{13}$ above the bins of the histogram in the left side from the left to the right and the same thing for the right histogram from the right to the left?