Курсовая работа!!

[Abay19941308]

Нужно сделать так чтобы он удалял две одинаковые фигурки а не все подряд.
Помогите пожалуйста.

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;

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,'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]);
        mk[i,j]:= PictureABC.Create(xk,yk,'bamboo'+inttostr(a[i,j])+'.png');
        end;end;

procedure mousedown(x,y,mb:integer);
begin

{i1:=i1+1;j1:=j1+1;
writeln(1);
Mk[i1,j1]:=pictureABC.create(x,y,'bamboo'+inttostr(a[i,j])+'.png');
writeln(2);
a[i1,j1]:=1; }
for i:=1 to n do
    for j:=1 to n do
if a[i,j]<>0 then if mk[i,j].ptinside(x,y)=true then begin
mk[i,j].destroy; //âûäåëÿòü  ìåòêà 1
a[i,j]:=0;
//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.