Hallo
also wenn ich das richtig sehen, dann kannst du bei a.) die Schleifenvariable nicht manuell setzen. Versuche hier repeat/until oder while! Zu b.) gibt es kein Abbruchkriterium für die Schleife. Diese würde also wohl bis zum letzten Element laufen. Allerdings gibt es da ein Problem:
Code:
for i:= j to length(vza) do begin
if vza[j+i]= 1 then intervallend := j+i;
end;
vza[j+i] kann die Grenzen des Arrays sprengen und überspringt Zeichen. Die for Schleife sollte besser lauten:
Code:
for i:= 1 to length(vza)-j do begin
Grüsse!