Ошибка в курсовой работе

uses graphabc,Events,ABCObjects;
const nmax=10;
type mas=array [1..nmax,1..nmax] of byte;
var Mk:array [1..10, 1..10] of PictureABC;
beef:array [1..10, 1..10] of integer;
a: mas; n: byte;ll:PictureABC;i,j,i1,j1:integer;
 
                     xk,yk: integer;
 
 
procedure numb(x,y,n: integer);
begin
ll:=PictureABC.Create(x,y,'e:\êóðñîâàÿ ðàáîòà\bamboo'+inttostr(n)+'.png');
end;
 
 
procedure GenMap(var z: mas; var n: byte);
var i,j,ik,jk:byte;
begin
n:=9; ik:=random(n)+1; jk:=random(n)+1;
for i:=1 to n do
    for j:=1 to n do
        begin
        while z[ik,jk]<>0 do
              begin
              ik:=random(n)+1; jk:=random(n)+1;
              end;
        z[ik,jk]:=j;
        end;
end;
 
procedure DrawMap(z: mas; n: byte);
var i,j: byte; x,y: integer;
begin
n:=9;
for i:=1 to n do
    for j:=1 to n do
        begin
        xk:=25+(43*i); yk:=25+(60*j);
        numb(xk,yk,z[i,j]);
        end;end;
 
procedure mousedown(x,y,mb:integer);
begin
i1:=i1+1;j1:=j1+1;
Mk[i1,j1]:=pictureABC.create(x,y,'f:\êóðñîâàÿ ðàáîòà\bamboo'+inttostr(a[i,j])+'.png');
a[i1,j1]:=1;
if mk[i1,j1].ptinside(x,y)=true then begin
mk[i,j].destroy;
mk[i+1,j+1].destroy;
end;end;
 
 
begin
 loadwindow('ñíèìîê.png');
 GenMap(a,n);
 DrawMap(a,n);
 SetWindowSize(648,496);
 i1:=1;j1:=1;
 onmousedown:=mousedown;
end.