Моя игра на паскале

uses wincrt,graph;
type mas=array[1..3] of string;
const n=3;
      m=14;
      stroki:mas=('help','game','exit');
      up=#72;
      down=#80;
      enter=#13;
       left=#75;
      right=#77;
      esc=#27;
      space=#32;
      dx=50;
      dy=20;
type massiv=array[1..n,1..m] of integer;
type mass=array[1..3] of string;
const kirp:massiv=((0,0,1,1,1,1,1,1,1,1,1,1,0,0),
                   (0,0,1,1,1,1,1,1,1,1,1,1,0,0),
                   (0,0,1,1,1,1,1,1,1,1,1,1,0,0));
 
 
var
x,y,gd,gm,xm,ym,y0,x0,x1,y1,dm,c,r:integer;
hy,nx,ny,r1,xb,yb,dxb,dyb:integer;
xr,yr,w,z:integer;
lab:massiv;
ch:char;
pk,poz,rt:integer;
p_k:pointer;
 
 
procedure load_image(name:string;var p:pointer);
    var f:file;
        size:word;
    begin
      assign(f,name);
      reset(f,1);
      size:=filesize(f);
      getmem(p,size);
      blockread(f,p^,size);
      close(f);
    end;
procedure menu(var poz:integer);
var x0,y0,y,i:integer;
begin
  cleardevice;
  setcolor(c);
  settextstyle(0,0,3);
  x0:=150;
  y0:=100;
  for i:=1 to 3 do
           begin
             y:=y0+(i-1)*100;
             outtextxy(x0,y,stroki[i]);
           end;
  poz:=1;
  y:=y0+(poz-1)*100;
  putimage(x0-100,y,p_k^,xorput);
  repeat
    ch:=readkey;
    if ch=#0 then
            begin
              ch:=readkey;
              y:=y0+(poz-1)*100;
              putimage(x0-100,y,p_k^,xorput);
              case ch of
                 up: if poz=1 then poz:=3 else poz:=poz-1;
                 down: if poz=3 then poz:=1 else poz:=poz+1;
              end;
              y:=y0+(poz-1)*100;
              putimage(x0-100,y,p_k^,xorput);
            end;
 
  until ch=enter;
  putimage(x0-100,y,p_k^,xorput);
end;
 
procedure help;
var txt:text;
st:string;
xh:integer;
begin
assign(txt,'help.pas');
reset(txt);
setcolor(c+2);
settextstyle(rt,2,5);
xh:=20;
cleardevice;
while not (eof(txt)) do
        begin
        readln(txt,st);
        outtextxy(50,xh,st);
        xh:=xh+20;
        end;
        close(txt);
        readkey;
        cleardevice;
end;
 
 
procedure zap_kirp;
var i,k:integer;
   begin
      lab:=kirp;
      for i:=1 to n do
         begin
            for k:=1 to m do
               begin
                   x:=(k-1)*dx+x0-300;
                   y:=(i-1)*dy+y0-300;
                   case lab[i,k] of
                      1:begin
                        c:=random(15)+1;
                        setfillstyle(1,c);
                        bar (x+2,y+2,x+dx-2,y+dy-2);
                      end
                    end;
               end;
         end;
   end;
 
 
 
procedure ball(x,y,r,c:integer);
  begin
        setcolor(c);
        setfillstyle(1,c);
        fillellipse(x,y,r,r);
  end;
 
{procedure drawkir(nx,ny,dx,dy:integer);
var x,y,i,j:integer;
begin
setfillstyle(1,6);
for i:=1 to n do
for j:=1 to m do
        begin
        x:=nx+(j-1)*dx;
        y:=ny+(i-1)*dy;
        if kirp[i,j]<>0 then
        bar (x+2,y+2,x+dx-2,y+dx-2);
        end;
end; }
function proverka(x1,y1,x2,y2,dx,dy:integer):boolean;
var r1:integer;
begin
  r1:=ym;
  if ((y2>y1) and ((y2-y1)<r1) and (x1>x2) and ((x1-x2)<dx)) or
   ((x2>x1) and ((x2-x1)<r1)) or
   ((y1>y2) and ((y1-y2)<r1+dy) and (x1>x2) and ((x1-x2)<dx)) or
   (((x2-x1)<dx) and ((x2-x1)<r1)) then
     proverka:=true
  else proverka:=false;
end;
 
procedure sbiv;
var x,y,i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
        begin
        x:=nx+(j-1)*dx;
        y:=ny+(i-1)*dy;
        if (lab[i,j]<>0) and proverka(x1,y1,x,y,dx,dy) then
                begin
                  hy:=-hy;
                  setfillstyle(1,0);
                  bar(x+2,y+2,x+dx-2,y+dy-2);
                  lab[i,j]:=0;
                {n:=n+1;
                schet(10,10,n);}
                end;
        end;
end;
 
procedure raketka(xr,yr,c:integer);
begin
  setfillstyle (1,c);
  bar (xr,yr,xr+100, yr+3);
end;
 
procedure dwig_raketka(x,y:integer);
begin
      w:=10;
      ch:=readkey;
      if ch=#0 then
         begin
            ch:=readkey;
            raketka(x,y,0);
            case ch of
                left: if x>w then  x:=x-w;
                right: if x<getmaxx-w then x:=x+w;
            end;
            raketka(x,y,1);
         end;
end;
 
procedure move_ball(var x,y:integer);
begin
      ball(x,y,r,0);
      y:=Y+dyb;
      x:=x+dxb;
     if (y>=ym-r)or(y<r) then
              dyb:=-dyb;
     If(x>=xm-r)or(x<r) then
              dxb:=-dxb;
//      if (y1<250) then sbiv;//(hy,nx,dx,dy,r1);
      ball(x,y,r,c);
              delay(10);
 
end;
procedure game;
begin
   cleardevice;
   zap_kirp;
   ball(xb,yb,r,c);
   raketka(xr,yr,1);
   repeat
     move_ball(xb,yb);
     sbiv;
    if keypressed then
        dwig_raketka(xr,yr);
   until  ch=esc;{ or (n1=32) or (life=0);}
 
end;
 
begin{ѓ«*ў**п Їа®Ја*¬¬*}
   gd:=detect;
   initgraph(gd,gm,'');
   randomize;
   c:=1+random(15);
   rt:=installuserfont('goth');
   load_image('strel',p_k);
   xm:=getmaxx;
   ym:=getmaxy;
   xr:=xm div 2;
   yr:=ym-100;
   r:=15;
   dxb:=10;//1+random(15);
   dyb:=10;//1+random(15);
   xb:=xm div 2;
   yb:=ym div 2;
   x0:=xm div 2;
   y0:=ym div 2;
   repeat
    menu(poz);
    case poz of
        1:help;
        2:game;
        3:exit;
     end;
  until poz=3;
 
 
 
closegraph;
end.