доминируемые строки и столбцы

[L3zh1Y]

как можно удалить строку или столбец, все элементы которого больше или равны другой строки или столбца?
У меня была идея сделать так: Сравнить элементы первой строки с остальными и если за период прохода по всем столбцам строки равен количеству столбцов то удаляй эту строку. Но незнаю как удалить эту строку которая меньше.

for j:=1 to sg.RowCount-1 do
 begin
 kol:=0;
 for i:= 1 to sg.ColCount-1 do
  begin
   if sg.Cells[i,j]>=sg.Cells[i,j+1] then inc(kol);
   if kol=strtoint(form3.Edit1.Text) then sg.Rows[j+1]:=;
  end;
 end;