for (y = 1; y <= Bottom; y++) {
  for (x = 3; [1,y+1] == [1,y]; x++) {
    [x,y] = [2,y+1];
    DeleteRow(y + 1);
  }
}