Этот цикл перебирает только значения -1 и 0. Но не доходит до 1 и 2! Это у него проблемы с переходом через "ноль" или это опять у меня проблемы с головой?!
надо писать Для Эл1 = -1 По 2 Цикл.
щас у тебя происходит вот что: конструкция "По Эл1 = 2" превращается в "По Ложь" (так как это логическое выражение), Ложь преобразуется к нулю. Поэтому, фактически, цикл у тебя с -1 по 0.