Несколько небольших игрушек

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int eda,z,c;//eda это свободные клетки и наличие еды
for (x=0;x<50;x++)
 for (y=0;y<50;y++)
 {
   eda=0;
   if (POLE[x-1][y-1]==1) eda++;
   if (POLE[x][y-1]==1) eda++;
   if (POLE[x+1][y-1]==1) eda++;
   if (POLE[x-1][y]==1) eda++;
   if (POLE[x+1][y]==1) eda++;
   if (POLE[x-1][y+1]==1) eda++;
   if (POLE[x][y+1]==1) eda++;
   if (POLE[x+1][y+1]==1) eda++;
  if (POLE[x][y]==4)//деление
  {
   if (eda>0)
    {
      POLE[x][y]=3;//старая бактерия
      L:
      z=random(3)-1;
      c=random(3)-1;
      if ((POLE[x+z][y+c]>1)&&(POLE[x+z][y+c]<=4)) goto L;//если клетка занята
      if ((x+z<0)||(y+c>50)||(x+z>50)||(y+c<0)) goto V;//если вышли за поле
      POLE[x+z][y+c]=3;//и новая бактерия
      Form1->Image1->Canvas->Brush->Color=clBlue;
      Form1->Image1->Canvas->Rectangle((x+z)*10,(y+c)*10,(x+z)*10+10,(y+c)*10+10);
      V:
    }
  }
 if ((POLE[x][y]==3)||(POLE[x][y]==2))//наличие еды
  {
   if (eda>3) POLE[x][y]=4;//бактерия толстеет и на следующем ходу делится
   if (eda==0) POLE[x][y]=POLE[x][y]-1;//нет еды худеет и погибают
 //if (eda<=1) так интересней
  }
 if (POLE[x][y]==1)//перерисовываем погибшие бактерии
  {
   Form1->Image1->Canvas->Brush->Color=clGreen;
   Form1->Image1->Canvas->Rectangle(x*10,y*10,x*10+10,y*10+10);
  }
 }
}