Контрольная работа: Написание игры "Змейка" средствами языка Turbo Pascal

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;

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;