Курсовая работа: Игровая программа 15

Up=#72;

Down=#80;

Left=#75;

Right=#77;

Space=#32;

Esc=#27;

Enter=#13;

type

strok=string[10];

var

stroka:array[1..12] of strok;

f02,f03:text;

st02:string[10];

stl2:string[20];

a,b2,pl,kl,o:char;

st,st1:string[5];

step:string[5];

u,vict:boolean;

mas:array [1..16] of integer;

a02,b3,c02,b,b1,d,e,e02,i,i1,j,n,r,steps,x,

x1,y,y1,yme:integer;

grDriver,grMode:integer;

m,m1,m2,m3:integer;

p,p1,p2,p3:pointer;

procedure recod;

procedure buk(a,b,c:integer;s:char);

procedure victory;

procedure nomer(xp,yp,ip:integer);

procedure kv(xk,yk:integer);