?

runmode:0;

n:=100;

ss:=0;

for i=1 to n do begin

? if h<h[barpos-i] then begin

???? ss:=ss+1;

???? break;

?? end

end

ss為所求值

?