Задача на поиск значений в матрице Опции

[erwin]

Добрый вечер. Вот тут подкинули задачку:

Написать программу, которая в прямоугольной матрице NxM действительных чисел находит максимальное значение из минимальных значений столбцов и минимальное значение из максимальных значений строк (max(j)(min(i)(Aij)) и min(i)(max(j)(Aij)))

Поиском пользовался, но как-то ничего подобного найти не смог, или был невнимателен, так что буду благодарен за любую помощь, а это что смог накидать, не бейте, программер из меня почти никакой... Как программа должна работать я понимаю, а как это реализовать представляю с трудом.

Но это еще не все, самое непонятное то, что нужно чтобы данные этой программы читались из файла%/ что это такое я не понимаю, но такое вот было требование. Объясните, пожалуйста, что это и с чем едят.

function poisk_max(ma:integer):integer;
var
mb,max:integer;
begin
 mb:=0;                             {poisk max v stroke "ma"}
 max:=dmas[0,ma];
 while not(mb=n) do
 begin
  if (dmas[mb,ma]>=max) then
   max:=dmas[mb,ma];
  mb:=mb+1;
 end;
 poisk_max:=max;
end;

function poisk_min:integer;
var
mina,min:integer;
begin
 mina:=0;
 min:=results[mina];
 while not(mina=n) do            {ischet min v massive "results"}
 begin
  if (results[mina]<=min) then
   min:=results[mina];
  mina:=mina+1;
 end;
 poisk_min:=min;
end;