Runtime error 201

[mmx358]

stakan = array [1..25, 1..22] of byte;
.....
var stak : stakan;
.....
sx:=36; sy:=2;
.....
sx:=(sx-23) div 2;
.....
if stak[(sx-2)+(f*2),(sy-1)+i] = 1
if stak[(sx+0)+(x*2),(sy-2)+f] = 1
if stak[(sx-2)+(x*2),(sy-1)+y] = 1
if stak[(sx+0)+(i*2),(sy-2)+y] = 1

Ошибка происходит в одной из последних четырех строк (они вырваны сюда из разных мест программы).

[Sazary]

В одной из строк полученный индекс выходит за границы диапазона.

[Consol]

у вас происходит выход за пределы массива, то есть например
stak[-1,5]
stak[5,40]