в 2_2 достаточно добавить в конец цикла, прямо перед end строчку
Inc(i);