Простенькая программа (нужна помощь)

[vooodooo22]

Выбираем "Импорт" из меню "Проект" :-)
Далее стандартное виндузовское окно выбора файла

Спасибо

var
набор : array[0..12]of byte := 0,1,0,3,0,7,0,15,0,15,0,15,0;
i : byte;
t:ton;
start:bool;


*********
t(in:=start and not t.q, pt:=T#1s);
i:=min(i+bool_to_word(t.q),12)*bool_to_word(start) ;
Q1:=набор[i].0;
Q2:=набор[i].1;
Q3:=набор[i].2;
Q4:=набор[i].3;

Выдает ошибку :

[Gans]

Выдает ошибку :

Объявите
i : byte;
как
i : Word;
Должно помочь :-)