der erste code klappt nicht, weil man eine FOR-Variable nicht schreiben darf. das zweite klappt prinizpiell, allerdings musst du da:
Delphi-Quellcode:
for i:= j to length(vza) do begin
if vza[j+i]= 1 [...]
noch was ändern, da "vza[j+i]" ausßerhalb des arrays liegen kann, und du eine AcessViolation erhältst. zusätzlich musst du nachdem du intervallend gesetzt hast die schleife noch verlassen, damit nicht weitergesucht wird. stichwort: "break;"