Уважаемый Citrus, а я ведь не для просто так дал ссылку на другую тему. Совершенно напрасно Вы это дело проигнорировали. В той задаче требовалось найти минимальный среди максимальных элементов столбцов таблицы. Вот фрагмент программы оттуда:
Код:
FOR j:=1 TO s DO
begin
MVcol[j]:=a[1,j];
FOR i:=2 TO d DO
IF a[i,j]>MVcol[j] THEN MVcol[j]:=a[i,j];
end;
Min_Max:=MVcol[1];
FOR j:=2 TO s DO
IF Min_Max>MVcol[j] THEN Min_Max:=MVcol[j];
Здесь MVcol[j] - максимальный элемент j-того столбца, Min_Max - минимальный из этих максимальных элементов, i - номер строки, j - номер столбца, d - количество строк, s - количество столбцов. Вся разница в том, что у Вас вместо столбцов - строки. Но это переделка пустяковая.