input:n(30,1,9999);
vv:=vol ;
dt:=datacount;
tmp:=sort(vv,0,dt-n+1,dt);
vvv:v volstick;
sp:=c*0;
for i=dt downto dt-n+1 do begin
for j=dt downto dt-n+1 do begin
if vvv[j]=vv[i] then
sp[j]:=i;
end;
end;
drawnumber(barpos>dt-n,v,sp-(dt-n),0) pxup50;