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

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