Процедура game для игры

program labirint;
uses graph,crt;
var
        gd,gm,errcode:integer;
        count:        integer;      ///счетчик очков///
        key:          char;
        p:            pointer; ///указатель на образ///
        nx,ny,dx,dy,x,y,k,
        ik,jk,i,j:      integer; //индексы определяющие положение//
 
const
        n_strok = 22;
        n_stolb = 22;
        dx = 30;
        dy = 30;
        left = #75;
        up = #72;
        esc = #27;
        right = #77;
        down = #80;
 
        type masslab=array[1..n_strok,1..n_stolb] of integer;
 
 
    const lab1:=((1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1),
                 (1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
                 (1,0,4,0,0,0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,0,1),
                 (1,1,1,1,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,0,0,1),
                 (1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,1,0,0,1),
                 (1,0,0,0,0,1,0,0,0,0,0,0,0,0,5,1,4,0,1,0,0,1),
                 (1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,1),
                 (1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1),
                 (1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1),
                 (1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1),
                 (1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,1,2,0,1,0,0,1),
                 (1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,0,0,1),
                 (1,0,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1),
                 (1,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1),
                 (1,0,0,5,0,1,0,0,0,0,0,1,0,0,1,1,1,0,0,1,1,1),
                 (1,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,1,0,0,1,1,1),
                 (1,1,1,1,1,1,0,0,1,0,0,1,0,0,4,0,1,0,0,1,1,1),
                 (1,0,0,0,0,0,0,0,1,0,0,1,1,1,1,1,1,0,0,1,1,1),
                 (1,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,1),
                 (1,0,0,1,0,0,1,1,1,0,0,0,2,0,1,3,0,4,0,0,2,1),
                 (1,0,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1));
 
////=========================печать очков==============================///
procedure PrCount(count:integer);
var
        st:string[3];
begin
        setcolor(1,4);     STR(count,st);
        setfillstyle(1,0);
        bar(370,310,640,340);
        settextstyle(0,0,2);
        outtextxy(400,320,'Заработано очков - ' +st);
end;
///========================рисование кошки=============================///
procedure DrawCat;
var
        size:integer;
begin
        /////надо вписать процедуру именно для кошака, вставить рисунок///
 
end;
 
 
////=====================анализ клавиш================================////
 
procedure AnalyseKey(var key:char; var i,j,ik,jk:integer);
begin
        key:=readkey;
        if key = #0 then
          begin
             key:=readkey;
             case key of
               left: j:=jk-1;
               right: j:= jk+1;
               up: i:=ik-1;
               down: i:=ik+1;
          end;
 
end;
        setcolor(0);
        settextstyle(0,0,3);
        outtextxy(450,200,'стена');
end;
////====================рисование лабиринта===========================////
 
        Procedure DrawLab
        var i,k,x,y:integer;
       begin
                lab:=lab1;
                for i:=1 to n_strok do
                for k:=1 to n_stolb do
                        begin
                          x:=x+(k-1)*dx;
                          y:=y+(i-1)*dy;
                          case lab[i,k] of
                               1: putimage(x,y,p_stena^,xorput);
                               2: putimage(x,y,p_priz^,xorput);
                               3: putimage(x,y,p_suppriz^,xorput);
                               4: putimage(x,y,p_mish^,xorput);
                               5: putimage(x,y,p_krysa^,xorput);
                               6: putimage(x,y,p_koshka^,xorput);
                               7: begin
 
                          end;
                end;
end;
////====================================================================//
 
procedure game=?