Проверьте программу на Pascal

[Selyd]

Стало быть, goto заменяем на break. Если  при проверке т.н. "седло" находится на краешке, пишем warning: " Точка находится на границе матрицы строка i=..., столбец j=...".
ЗЫ. Куда пропал топикстартёр? Мы за всё отдуваться должны?
Согласен с доказательством, что седло м.б. только одно (в строгом смысле). Сам к этому выводу пришёл. А там уж "кто первый встал, того и сапоги" . Или писать что-то типа: "Первое седло ...". Только генератор текста понадобится, типа "тысяча шестьсот сорок пятое", а это другая задача.

Седло на краешке быть не может - это полуседло.
В задаче же сказано скать седло.
Седел на пространной матрице может быть несколько, одно или ни одного.

[Selyd]

   2  1   5 7  9
   4  3  7  8  9
   8  1  9  8  3
 11 12 1  2  1
 12 13 9  7 4
Имеем матрицу с двумя сёдлами. Первое размещено слева направо, второе - сверху вниз.
Первое отмечено красным цветом, второе - зелёным.
Блок поиска седловых точек:
 for i:=2 to n-1 do
    for j:=2 to m-1 do
     begin
      if (a[i,j]<a[i,j-1] and a[i,j]<a[i,j+1]) and (a[i,j]<a[i-1,j] and a[i,j]>a[i+1,j) then writeln(a[i,j],i,j);
      if (a[i,j]>a[i,j-1] and a[i,j]>a[i,j+1]) and (a[i,j]<a[i-1,j] and a[i,j]<a[i+1,j) then writeln(a[i,j],i,j);
    end;
writeln('Поиск седловых точек окончен.');

[sp]

По определению седло имеет направление. Ну типа лошадь. Имеет напраление где грива и где хвост. Но Ваше седло, ортогональное, вполе подходящее.
У Вас там числа 12, 13 и другие надо заменить на, скажем, нули. А то в подматрицах сёдла ищем. Так в задании не объявлено.

[wital1984]

  2  1   5 7  9
   4  3  7  8  9
   8  1  9  8  3
 11 12 1  2  1
 12 13 9  7 4
Имеем матрицу с двумя сёдлами. Первое размещено слева направо, второе - сверху вниз.
Первое отмечено красным цветом, второе - зелёным.
Блок поиска седловых точек:
 for i:=2 to n-1 do
    for j:=2 to m-1 do
     begin
      if (a[i,j]<a[i,j-1] and a[i,j]<a[i,j+1]) and (a[i,j]<a[i-1,j] and a[i,j]>a[i+1,j) then writeln(a[i,j],i,j);
      if (a[i,j]>a[i,j-1] and a[i,j]>a[i,j+1]) and (a[i,j]<a[i-1,j] and a[i,j]<a[i+1,j) then writeln(a[i,j],i,j);
    end;
writeln('Поиск седловых точек окончен.');

Определение:

седловая точка-элемент матрицы,являющийся минимальным в своей строке и максимальным в своем столбце.

По определнию седловых точек в вашем примере нет. Какую задачу вы решаете?

[Selyd]

По определению седло имеет направление. Ну типа лошадь. Имеет напраление где грива и где хвост. Но Ваше седло, ортогональное, вполе подходящее. У Вас там числа 12, 13 и другие надо заменить на, скажем, нули. А то в подматрицах сёдла ищем. Так в задании не объявлено.

Спасибо за уточнени исходных данных.
 3  2 5 7  9
 4  3 7 8  9
 8  2 9  8 3
 1  1 1  6  1
 2  1 9  7 4
Два седла не локальных. С соблюдением условий по строкам истолбцам.
У меня был вариант локальных седел в приведённой матрице.
Программы это не меняет.

[wital1984]

3 это седло, а что тогда 6? Точка, обратная седлу. Горб, что ли? 

[Selyd]

3 это седло, а что тогда 6? Точка, обратная седлу. Горб, что ли? 

3 - Конь смотрит на восток.
6 - Конь смотрит на север.

[sp]

Конь в точке 6 - это такой транспонированный конь. Или конь, который пошёл на лево.

[Selyd]

От, волчара! За ними глаз да глаз нужен!