Форум АНТИЧАТ - Показать сообщение отдельно

не стал разбираться(по приведённым выше причинам), вот код для поиска по первому условию (по второму полный аналог):
размер n*m, обошёлся одним массивом x[i,j]
i,j - индексы; k,ind - доп. переменные индексов; ok-boolean, для проверки условия.

Код:

for i:=1 to n do {проход по строкам}
 begin
   min:=x[i,1]; ok:=true;
    
     for j:=2 to m do {поиск наименьшего в строке}
       if x[i,j]<min then begin min:=x[i,j]; ind:=j; end;
     
     for k:=i downto 1 do {проверка на макс в столбце}
       if x[k,ind]>min then begin ok:=false; k:=n; end;
     
     if ok then
      for k:=i to n do
        if x[k,ind]>min then begin ok:=false; k:=n; end;
  
    if ok then write (i,ind);
 end;