Задача для Free Pascal.
Дана матрица размером n*m. Найти седловую точку матрицы и напечатать ее индексы. Седловой точкой называется элемент, имеющий наименьшее значение в строке и наибольшее в столбце
Каждый элемент матрицы должен быть введён вручную

Const   N = 3;   M = 4;Var   A:array[1..N,1..M] of integer;   i,j,Min,Max:integer;BeginWriteLn('Введите матрицу A[',N,',',M,']:');For i:= 1 to N do    For j:= 1 to M do        Read(A[i,j]);WriteLn;For i:= 1 to N do    Begin    Min:=1;    For j:= 2 to M do        if A[i,Min]>A[i,j] then Min:=j;    Max:=1;    For j:= 2 to N do        if A[Max,Min]<A[j,Min] then Max:=j;    if Max=i then WriteLn('A[',i,',',Min,'] = ',A[i,Min])    End;End.Пример:Введите матрицу A[3,4]:  4   3   6  -4   2  -3  -9  -5   2   4  -6  -9A[1,4] = -4