为什么cena满分洛谷全运行时错误

var（这是没改过会输出路径的版本，请忽视路径部分）

  a,sp,k:array[0..200000]of longint;
  i,j,tem1,tem2,l,r,n,mid:longint;
procedure print(x:longint);
begin
  if sp[x]>-1 then print(sp[x]);
  write(x,' ');
end;
begin
  readln(n,l,r);
  for i:=1 to n+1 do
    read(a[i-1]);
  sp[0]:=-1;
  for i:=1 to l-1 do
    k[i]:=-10000000;
  if (2*l-1)<r then
    mid:=2*l-1
    else mid:=r;
  for i:=l to mid do
    begin
      k[i]:=a[i];
      sp[i]:=0;
    end;
  for i:=mid+1 to n do
    begin
      if (i=mid+1)or(tem2=(i-r-1)) then
        begin
          tem1:=-maxlongint;
          for j:=i-r to i-l do
            if k[j]>tem1 then 
              begin
                tem1:=k[j];
                tem2:=j;
              end;
          k[i]:=tem1+a[i];
          sp[i]:=tem2;
        end else
        begin
          if k[i-l]>tem1 then 
              begin
                tem1:=k[i-l];
                tem2:=i-l;
              end;
          k[i]:=tem1+a[i];
          sp[i]:=tem2;
        end;
    end;
  tem1:=-10000000;
  for i:=n+1-r to n do
    if k[i]>tem1 then 
      begin
        tem1:=k[i];
        tem2:=i;
      end;
  writeln(tem1);
  print(tem2);
  write(-1);
end.