Поиск прямоугольника в матрице

[seo-romka]

Дана одна из процедур поиска прямоугольника из единиц в матрице (состоящей из 0 и 1), её временная сложность n^3 необходимо сделать исправить процедуру так чтобы её временная сложность была n^2! Если нужно могу весь код программы скинуть, чтоб было более понятно! В цене договоримся!

Procedure Solve;
Var i,j,t,k,res:LongInt;
Begin
res:=0;
For i:=1 To n Do
For j:=1 To m Do Begin
t:=B[i,j];
k:=i;
While (k>=1) And (A[k,j]<>0) And (t*i>res) Do
Begin
If t*(i-k+1) >res Then res:=t*(i-k+1);
k:=k-1;
t:=Min(t,B[k+1,j]);
End;
End;
WriteLn('Max = ',res);
End;