[Trotil]

Непосредственно поиск:

for y:=0 to M-1 do
begin
   flag := (a[0,y]>=0); {все хорошо то, что... }
   if flag  then             {...хорошо начинается!}
   for x:=1 to N-1 do
   if a[x,y]<a[x-1,y] then
    begin
     flag:= false; {Опять мимо... (((}
     break; {тут нам делать нечего...}
    end;
   if flag then break; {нашли все-таки? Тогда выходим из внешнего цикла досрочно}
end;
   if flag then writeln ('Строка N=',y+1) else writeln ('Строка не найдена...');