Problem mit Assignment im For-loop

[nailor]

Delphi-Quellcode:

if vza[j] = 1 then 
  begin 
    intervallanf := j; 

    for i:= j to length(vza) - j do 
      begin 
        if vza[j+i] = 1 then 
          begin
            intervallend := j+i;
            break;
          end;