Дан двумерный массив N*N Pascal вычеслить сумму элементов

[Aleksandr litvinch]

Определить суму элементов целой матрицы NxN, которые одновременно наибольшие в своем столбце и наименьшие в своей строке .

Кому не сложно обьясните пожалуйста как происхожит одновременно проверка элемента и по столбику и по строчке ? вроде массивы понимаю но попалось задание которое я просто не понимаю как сделать !

[Stilet]

function ok(x,y:integer):Boolean;
var i:integer;
begin
 for i:=1 to N do  if a[x,i]>a[x,y] then begin ok:=false; exit; end;
 for i:=1 to N do  if a[i,y]<a[x,y] then begin ok:=false; exit; end;
 ok:=true;
end;

В эту функцию передавай координаты проверяемого элемента, если она вернет true значит элемент подходит под условие. Функцию вызывай в двойном цикле, таком же как и при вводе матрицы.

[Aleksandr litvinch]

Спасибо большое ,я не смог сделать из-за нехватки знаний