求数组中一的区域

求数组中1的区域
有个二维数组，全部由 0 1 组成，想求出所有包含1的最小方形区域

比如：
   0 1 2 3 4 5 6 7 8 9 10111213141516....
0> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1> 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2> 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3> 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
4> 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
5> 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0
6> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9> 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
10>0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0
11>0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0
12>0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

需要得到4（或者5）对坐标：
(2,1)-(4,5);(9,5)-(9,5);(10,9)-(11,9);
最后一块可以有2种结果：
(11,10)-(14,11)
或者：(13,10)-(14,10);(11,11)-(12,11)

最小区域的要求不是很严格，效率优先。

先谢谢大家了。
------解决方案--------------------
求左右最长距离，上下最长距离，求max
------解决方案--------------------
是实现广度和深度搜索？是想得到最优算法还是简单实现？
------解决方案--------------------
用穷举法，最后比较大小。
------解决方案--------------------
这个好像简单：
分别计算1开始出现的行x、列y，和1最后出现的行a、列b
这个方框坐标就是：(x,y)-(a,b)
------解决方案--------------------

引用:

这个好像简单：
分别计算1开始出现的行x、列y，和1最后出现的行a、列b
这个方框坐标就是：(x,y)-(a,b)

我求的是 包含所有1的最小方形区域

------解决方案--------------------
函数(一个区域Rect)
var
  List : array of TRect
begin
对这个Rect横向扫描,用行全部为0的进行分割,只保留有含有1的连续的行,得到一个Rect,把这个Rect写入List中
   循环这个List递归
   Exit
如果无法分割,就尝试进行纵向分割,只包含有1的连续的列坐标,得到一个Rect,把这个结果写入List
   循环这个List递归
   Exit
如果还是无法分割,直接写入结果列表中.
end;
函数(整个区域)即可得到一个相对很小的结果

但是这样有个问题
011000
001110
000100
得到的结果是
(1,0)-(4,2) 显然[4,2]=0,显然需要最后进行一次整理,对这个结果进行整理,分析那些左上角为0或者右下角为0的,再进一步划分才可以.