var
f: text;
schet, max: integer;
s: string;
begin
assign(f, '24 варианты 1-4.txt');
reset(f);
max := 0;
begin
readln(f, s);
schet := 1;
for var i := 0 to length(s) - 1 do
if ((s[i] <> s[i + 1]) and (s[i + 1] <> s[i + 2])) then schet := schet + 1
else
if (s[i] <> '0') then schet := schet + 1
else begin
if max < schet then max := schet;
schet := 1;
end;
close(f);
writeln(max);
end
end.
В чем ошибка и как ее исправить?
s[i+2])
, при том, что идёте доlength(s)-1
. Вы гарантированно при этом из массива вылезете, о чём вам и пишут. В зависимости от правил языка иs[i+1]
может вылезти. Как исправить - проверяйте логику и переделывайте.