Не понимаю как исправить. Ошибка времени выполнения: Индекс находился вне границ массива

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.

В чем ошибка и как ее исправить?