if tip=1 then
    begin
    l:=cBoard[x,y];
    if (levo(x,y,1)+desno(x,y,1))>=(gore(x,y,1)+dole(x,y,1))then
    begin
    x:=x-levo(x,y,1)+1;
    if x-1>=0 then
    cMat[x-1,y].brush.color:=clGray;
    if x+l<=9 then
    cMat[x+l,y].brush.color:=clGray;
    for i:=0 to l-1 do
        cMat[x+i,y].brush.color:=clRed;
    end;
    if (gore(x,y,1)+dole(x,y,1))<(levo(x,y,1)+desno(x,y,1)) then
    begin
    y:=y-gore(x,y,1)+1;
    if y-1>=0 then
    cMat[x,y-1].brush.color:=clGray;
    if y+l<=9 then
    cMat[x,y+l].brush.color:=clGray;
    for i:=0 to l-1 do
        cMat[x,y+i].brush.color:=clRed;
    end;
    end;