Исправить ошибки в игре "Змейка"

@plsap · Регистрация: 26.10.2015

Author24 — интернет-сервис помощи студентам

Написана игра "змейка" в программе Paskal.
Нужно исправить ошибку:
Привести интерфейс (название игры, количество пойманых).

Вот сама программа:

Pascal

Uses crt;
var
i,x,y,x1,y1:integer;
rk:char;
begin
HideCursor;
TextBackGround(3);
clrscr;
 
for i:=1 to 80 do
begin
gotoXY(i,1); TextBackGround(4); write (' ');
end;
 
for i:=1 to 79 do
begin
gotoXY(i,1); TextBackGround(4); write (' ');
end;
 
for i:=1 to 24 do
begin
gotoXY(i,1); TextBackGround(4); write (' ');
end;
 
for i:=1 to 24 do
begin
gotoXY(80,i); TextBackGround(4); write (' ');
end;
 
x:=random (79)+1;
y:=random (24)+1;
gotoXY(x,y);TextBackGround(7);Write('*');
x1:=40;
y1:=12;
 
repeat
rk:=readkey;
if rk='w' then begin y1:=y1-1;gotoXY(x1,y1);TextBackGround(7);write(' '); end;
if rk='s' then begin y1:=y1+1;gotoXY(x1,y1);TextBackGround(7);write(' '); end;
if rk='a' then begin x1:=x1-1;gotoXY(x1,y1);TextBackGround(7);write(' '); end;
if rk='d' then begin x1:=x1+1;gotoXY(x1,y1);TextBackGround(7);write(' '); end;
 
if (x1=x) and (y1=y) then begin write('Молодец'); end;
until rk='0';
end.

Заранее спасибо

	07.06.2016, 17:44