Question: Frequency plot: quantiles

Hi

Does anyone know how I can shade say the top 5% of a frequency plot. Imagine the frequency plot is generated in the following way:

 

with(Statistics):with(plots):
N := RandomVariable(Normal(0, 1)):
A := Sample(N, 500):
Q := FrequencyPlot(A, thickness = 3):
 

I thought

P:=FrequencyPlot(A,x=-3..-1,fill=true,colour=grey):
display(P,Q):

would work but no!

any good ideas??

thanks v much

Please Wait...