主题：[求助]序列模式下，下列程序运行不了，请帮助修改！！谢谢

cc:=c;

for j=61  to  DATACOUNT-30  do

    begin 

          VARIABLE: i=-1;

          repeat  i:=i+1  until          

          cc[barpos+i-1]>cc[BARPOS+i]&&cc[BARPOS+i]<cc[barpos+i+1];

          jl[j]:=i;

    end

JL1:jl;

说说为什么运行不了？再修改到可以运行。先谢谢啦