Помогите написать игру, пожалуйста. - Free Pascal - Ответ 1240900

uses crt,graph;
type tzmey=array[0..14] of integer;
const
 left=#75;
 right=#77;
 up=#72;
 down=#80;
 esc=#27;
 n=31;
 m=16;
 
var
pole:array[0..n,0..m] of integer;
izk,jzk,iz,jz:tzmey;
cg:char;
ochki,dx,dy,nx,ny,gd,gm:integer;
 
procedure createzmey;
var
i:integer;
begin
 for i:=0 to 14 do
 if i<=3 then
  begin
   iz[i]:=4;
   jz[i]:=8+i;
  end
 else
  begin
   iz[i]:=0;
   jz[i]:=0;
  end;
end;
 
procedure create_pole;
var
k,i,j:integer;
begin
 for i:=0 to n do
 for j:=0 to m do
 if (j=0) or (i=n) or (j=m) or (i=0) then
 pole[i,j]:=-1
  else
 pole[i,j]:=0;
 k:=0;
repeat
 i:=random(n-2)+1;
 j:=random(m-2)+1;
 if(pole[i,j]=0)
 and
 (i<>4)
 and
 (abs(pole[i-1,j])<>1)
 and
 (abs(pole[i+1,j])<>1)
 and
 (abs(pole[i,j-1])<>1)
 and
 (abs(pole[i,j+1])<>1)
 then
 begin
  pole[i,j]:=1;
  k:=k+1;
 end;
until (k=11);
end;
 
procedure drawzmey;
var
x,y,i:integer;
begin
setfillstyle(1,12);
for i:=0 to 14 do
if (iz[i]>0) and (jz[i]>0) then
begin
 x:=nx+jz[i]*dx;
 y:=ny+iz[i]*dy;
 bar(x,y,x+dx,y+dy);
end;
end;
 
procedure drawpole;
var
i,j,x,y:integer;
begin
 for i:=0 to n do
 for j:=0 to m do
  begin
   x:=j*dx+nx;
   y:=i*dy+ny;
   case pole[i,j] of
0:begin
   setcolor(1);
   setfillstyle(1,0);
   bar(x,y,x+dx,y+dy);
   rectangle(x,y,x+dx,y+dy);
  end;
-1:begin
    setfillstyle(1,white);
    bar(x,y,x+dx,y+dy);
  end;
1:begin
   setfillstyle(1,14);
   bar(x,y,x+dx,y+dy);
  end;
  end;
  end;
end;
 
procedure schet(xw,yw,n:integer);
var
s:string;
begin
 setfillstyle(1,1);
 bar(xw,yw,xw+40,yw+20);
 setcolor(14);
 settextstyle(0,0,1);
 str(n,s);
 outtextxy(xw+5,yw+5,s);
end;
 
procedure movezmey;
var
i,kz,hi,hj,x,y:integer;
stop:boolean;
ch:char;
 
procedure rul;
begin
 ch:=readkey;
 if ch=#0 then
  begin
   ch:=readkey;
   case ch of
   left:if hj=0 then
   begin
    hi:=0;
    hj:=-1;
   end;
   right:if hj=0 then
   begin
    hi:=0;
    hj:=1;
   end;
   up:if hi=0 then
   begin
    hi:=-1;
    hj:=0;
   end;
   down:if hi=0 then
   begin
    hi:=1;
    hj:=0;
   end;
end;
begin
hi:=0;
hj:=-1;
kz:=3;
 
stop:=false;
repeat
 setfillstyle(1,0);
 x:=nx+jz[kz]*dx;
 y:=ny+iz[kz]*dy;
 bar(x,y,x+dx,y+dy);
 setcolor(1);
 rectangle(x,y,x+dx,y+dy);
 izk:=iz;
 jzk:=jz;
 
for i:=1 to kz do
 begin
  iz[i]:=izk[i-1];
  jz[i]:=jzk[i-1];
 end;
if keypressed then rul;
iz[0]:=iz[0]+hi;
jz[0]:=jz[0]+hj;
 setfillstyle(1,12);
 x:=nx+jz[0]*dx;
 y:ny+iz[0]*dy;
 bar(x,y,x+dx,y+dy);
if pole[iz[0],jz[0]]=1 then
 begin
  kz:=kz+1;
  ochki:=ochki+10;
  schet(500,10,ochki);
 end;
 for i:=1 to 15 do
 if (iz[i]=iz[0]) and (jz[i]=jz[0]) then
 stop:=true;
 delay(30000);
until
(pole[iz[0],jz[0]]=-1)
or
(ch=esc)
or
stop
or
(kz=14);
 
procedure initdat;
begin
randomize;
 ochki=0;
 dx:=15;
 dy:=15;
 nx:=20;
 ny:=0;
 end;
 
BEGIN
 gd:=detect;
 initgraph(gd,gm,'');
 initdat;
 create_pole;
 createzmey;
 drawpole;
 drawzmey;
 readkey;
 movezmey;
 readln;
 closegraph;
END.