Седловая точка

[orandzheviyman]

uses crt;
const N=2; M=3;
type matr=array [1..N,1..M] of integer;
var i,j,k:integer;
    max,min:integer;
    A:matr;

BEGIN
for i:=1 to N do
 for j:=1 to M do
 read (A[i,j]);

 for i:=1 to N do
 min:=1;
  for j:=1 to M do
   if A[i,j]<A[i,min] then min:=j;
  max:=1;
  for k:=1 to N do
   if A[k,min]<A[max,min] then max:=k;


write ('Sedlovaya tochka  ', A[max,min],' i=', max, ' j=', min);
end.

При введённой матрице
4 2 5
3 1 4
Выдаёт "Седловая точка 1 i=2 j=2"
Что не так то? Мучаюсь третий час, честно

[ZX Spectrum-128]

Сравни свой код с
http://programmersforum.ru/showthread.php?t=64142