Не могу найти ошибку в программе про рентабельность

[pergeot]

Наверно заклинило, но не могу найти ошибку в программе.

[Скандербег]

   tabl:array[1..3] of string=
     ('                                                         ',
     '      Viyasnenie samogo nepribilnogo hlebnogo kioska       ',
     '                                                          ');
     for i:=1 to 7 do begin
                           gotoxy(7,y+i);
                           write(tabl [i]);
                      end;

Переменная tabl определена с тремя элементами, а в цикле (и последующих) происходит обращение к несуществующим элементам переменной tabl (write(tabl [i]); - управляющая переменная i в цикле принимает значение больше 3). Естественно во время выполнения возникает ошибка "Rang check error".