Определить номера строк и столбцов всех седловых точек матрицы

program Zadanie97;
var
  i,j: integer;   // Промежуточные переменные для организации циклов.
  n: integer;     // Переменная для хранения значения количества элементов в массиве.
  a: array [1..20,1..20] of integer;  // Переменная для хранения массива.
  minrow: integer;      //  Переменная для хранения минимального значения элемента.
  maxcol: integer;      //  Переменная для хранения максимального значения элемента.
  minindrow: array[1..20,1..20] of integer;    // Переменная для хранения вспомогательного массива нахождения 
                                                                 // элементов с минимальным значением в строке.
  maxindcol: array[1..20,1..20] of integer;    // Переменная для хранения вспомогательного массива нахождения 
                                                                 // элементов с максимальным  значением в столбце.
  reg: boolean; // Переменная для регистрации найденных седловых точек.
  minind: integer;  // Переменная для хранения индекса элемента с минимальным значением.
  maxind: integer;  // Переменная для хранения индекса элемента с максимальным значением.
begin
 reg:= false;
  writeln('Введите количество элементов массива:');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
    begin
    write('Введите A =[',i,',',j,']:  ');
    Readln(a[i,j]);
    end;
  writeln('Исходный массив:'); // Вывод массива на экран.
  for i:= 1 to n do
  begin
    for j:= 1 to n do
     begin
      write(a[i,j]:5);
      minindrow[i,j]:= 0; // Установка в ноль вспомогательных массивов.
      maxindcol[i,j]:= 0;
     end;
    writeln;
  end;
 for i:= 1 to n do
  begin
    minrow:= 2147483646;
    for j:= 1 to n do              // Поиск минимального элемента в строке.
      if a[i,j] < minrow then
         begin
         minrow:= a[i,j];
         minind:= j;
         end;
    minindrow[i,minind]:= 1;  // Присвоение элементу вспомогательного массива единицы.
    writeln;
    writeln('Элемент с минимальным значением строки ',i,': ',minrow);
    for j:= 1 to n do
      if (a[i,j] = minrow) then   // Поиск элементов с таким же минимальным значением.
         begin
         write('[',i,',',j,']  ');
         minindrow[i,j]:= 1;     // Присвоение элементу вспомогательного массива единицы.
         end;
  end;
 writeln;
 for j:= 1 to n do
  begin
    maxcol:= - 2147483645;
    for i:= 1 to n do                   // Поиск элемента с максимальным значением в столбце.
      if a[i,j] > maxcol then
         begin
         maxcol:= a[i,j];
         maxind:= i;
         end;
    maxindcol[maxind,j]:= 1;       // Присвоение элементу вспомогательного массива единицы.
    writeln;
    writeln('Элемент с максимальным значением столбца ',j,': ',maxcol);
    for i:= 1 to n do
      if (a[i,j] = maxcol) then          // Поиск элементов с таким же максимальным значением.
         begin
         write('[',i,',',j,']  ');
         maxindcol[i,j]:= 1;      // Присвоение элементу вспомогательного массива единицы.
         end;
  end;
  writeln;
  for i:= 1 to n do
   for j:= 1 to n do
     if (minindrow[i,j] = maxindcol[i,j]) and (minindrow[i,j] <> 0)  then    // Сравнение двух вспомогательных массивов. 
                                                                                                          // (сравниваются 1, нули игнорируются.
      begin
      writeln('Седловая точка A[',i,',',j,'].');     //   Результаты совпадения выводятся на экран вместе с индексами совпавших 
                                                                   //  элементов.
      reg:= true;
      end;
 if not reg then
    writeln('Седловые точки не найдены.');   //  Если совпадения не найдены, то выводиться отрицательное сообщение.
 
  Readln;
end.