标题：[求助]我写的公试出现了这样的提取示

INPUT:N(15,1,300);      //参数申明
VARIABLE:j:=1,f:=0,k=0,VAR1=C,vv=vol; //变量申明
FOR i=1 TO DATACOUNT DO
BEGIN
    IF i>n  THEN 
    BEGIN
       for j=1 to n-2 do
       BEGIN 
           if VAR1[i-14]>VAR1[i-15] then
           BEGIN
           if VAR1[i-j]>=VAR1[i-14] then
              f:=f+1;
             
          end;
       end;
    if f=n-2 then
    k:=k+vv[i-14];
    k;
    j:=0;
    end;
END;

调试提示：第九行，错误：数组越界操作  数组变量请不要用VARIABLE声明。请老师帮我改写一下公试，可能还有别的问题，我是个新手。

INPUT:N(15,1,300);      //参数申明
VARIABLE:j:=1,f:=0,k=0,VAR1=C,vv=vol; //变量申明
FOR i=1 TO DATACOUNT DO
BEGIN
    IF i>n  THEN 
    BEGIN
       for j=1 to n-2 do
       BEGIN 
           if VAR1[i-14]>VAR1[i-15] then
           BEGIN
           if VAR1[i-j]>=VAR1[i-14] then
              f:=f+1;
             
          end;
       end;
    if f=n-2 then
    k:=k+vv[i-14];
    k;
    j:=0;
    end;
END;