Цикл должен быть не "Для", а "Пока Индекс <= Массив.Количество()". И да, насчёт целой части от деления на 3, согласен с предыдущим оратором