Незвестное имя x. Что это значит

program zmeika;
uses crt;
type
spoint=record
x:integer;
y:integer;
end; {тип для точки}
const
maxwidth=10; {максимальная длина змейки}
var
width: integer; {длина змейки}
e:spoint;{координаты еды}
snakebody:array [1..maxwidth] of spoint; {массив с координатами частей тела змейки}
i,{счетчик цикла} nx,ny:integer{координаты головы змейки};
v:byte; {вектор направления головы змейки}
gameover: boolean; {флаг окончания игры}
key:char;{буфер клавиши}
{проверяет свободна ли клетка и не выходит ли она за границы поля}
function checknext(x:integer; y:integer):boolean;
var
isset:boolean; {флаг проверки занятости клетки или ее выхода за границы поля}
i:integer;
begin
isset:=true;
for i:=1 to width do
begin {проверяем нет ли на месте клетки змейки}
if (x=snakebody[i].x) and (y=snakebody[i].y) then
isset:=false;
end;
if isset then
begin {проверяем не вышла ли голова змейки за границы поля}
if (x<=0) or (y<=0) or (x>=80) or (y>=25) then isset:=false;
end;
checknext:=isset;
end;
{создает еду на поле}
procedure neweat;
begin
e.x:=random(78)+2;
e.y:=random(23)+2; {генерируем координаты еды}
{если место занято, генерируем еще раз, и так пока не найдем свободное}
while (not checknext(e.x , e.y)) do
begin
e.x:=random(78)+2;
e.y:=random(23)+2;
end;
end;
{перемещает змейку
procedure movesnake (x,y:integer);
var
i:integer; {счетчик цикла}
begin
for i:=1 to width do
begin
snakebody[i]:=snakebody[i+1];
end;{перемещаем все составляющие змейки на место соседней}
snakebody[width].x:=x;
snakebody[width].y:=y; {голове змейки присваиваем новые координаты}
if (x=e.x) and (y=e.y) then {если голова нашла еду}
begin
width:=width+1; {увеличиваем длину змейки на 1}
snakebody[width].x:=x;
snakebody[width].y:=y;
neweat; {создаем новую еду}
end;
 
{******** main program ************}
BEGIN
textbackground(2);
clrscr;
textcolor(5);
gotoxy(33,10);
write ('**** SNAKE ****');
gotoxy(20,12);
write('press W to go up');
gotoxy(20,14);
write('pres A to go left');
gotoxy(20,16);
write('press D to go right');
gotoxy(20,18);
write('press S to go down');
gotoxy(27,22);
write ('**** PRESS ENTER TO START ****');
readln;
clrscr;
gameover:=false;
{выстраиваем начальное тело змеки}
width:=4;
snakebody[1].x:=1;
snakebody[1].y:=1;
snakebody[2].x:=2;
snakebody[2].y:=1;
snakebody[3].x:=3;
snakebody[3].y:=1;
snakebody[4].x:=4;
snakebody[4].y:=1;
clrscr;
v:=1;
randomize;
neweat; {создаем еду}
while (width<maxwidth) do {пока длина змейки меньше заданной}
begin
if (keypressed) then {если была нажата клавиша}
begin
key:=readkey; {считываем клавишу}
case key of
'w': begin if v=4 then continue; v:=3; end; {up}
's': begin if v=3 then continue; v:=4; end; {down}
'a': begin if v=1 then continue; v:=2; end; {left}
'd': begin if v=2 then continue; v:=1; end; {rigth}
#27: break; {exit}
end;
end;
clrscr;
 {определение направления движения головы змейки}
case v of
1: begin nx:=snakebody[width].x+1;
ny:=snakebody[width].y; end; {rigth}
2: begin nx:=snakebody[width].x-1;
ny:=snakebody[width].y; end; {left}
3: begin nx:=snakebody[width].x;
ny:=snakebody[width].y-1; end; {up}
4: begin nx:=snakebody[width].x;
ny:=snakebody[width].y+1; end; {down}
end;
{если впереди граница или препятствие}
if (not checknext(nx,ny)) then
begin
gameover:=true; {заканчиваем игру с поражением пользователя}
break;
end;
movesnake(nx,ny); {перемещаем змейку}
gotoxy(e.x,e.y);
write('o'); {отображаем еду}
for i:=1 to width-1 do
begin {отображаем тело змейки}
gotoxy(snakebody[i].x,snakebody[i].y);
{ textbackground(2);}
textcolor(15);
write('o');
end;
gotoxy (snakebody[width].x, snakebody[width].y);
textcolor(7);
write('o'); {отображение головы змейки}
gotoxy(80,25); {уводим курсор чтобы не мешал}
delay(20000)
end;
clrscr;
if (gameover) then {сообщение о выигрыше или проигрыше}
begin
textcolor(4);
gotoxy(30,12);
writeln('**** GAME OVER ! ****')
end
else
begin
textcolor(11);
gotoxy(35,12);
writeln ('**** YOU WIN ! ****');
end;
textcolor (15);
gotoxy(25,20);
writeln('**** Press enter for exit ! ****');
readln;
end;
END.