Найти седловую точку матрицы

uses crt;
const n=4;
var a:array[1..n,1..n]of integer;
    i,j,k,max,imax,min,jmin:integer;
begin
clrscr;
randomize;
writeln('Vvedite elemebty  matricy:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
clrscr;
writeln('Ishodnaia matrica:');
for i:=1 to n do
     begin
       for j:=1 to n do
       write(a[i,j]:3);
       writeln;
     end;
readln;
for j:=1 to m do {идем по столбцам}
max:=a[1,j];imax:=1; {макс=первому элементу в столбце, imax-строка в которой}
for i:=1 to n do      {будет максимальный элемент столбца}
if a[i,j]>max then
   begin
    max:=a[i,j];    {нашли}
    imax:=i;        {запомнили строку}
   end;
min:=a[imax,1];jmin:=1;  {идем по этой строке}
for k:=1 to n do
if a[imax,j]<min then
    begin
      min:=a[imax,j];  {находим минимальный}
      jmin:=j;        {запоминаем номер столбца}
    end;
if min=max then      {если совпало}
   begin
     writeln('#stroki=',imax);  {выводим и заканчиваем поиск}
     writeln('#stolbca=',jmin);
     readln;
     exit;
   end                          {если нет переходим к следующему столбцу}
else if (j=n)and(min<>max) then
writeln('Takogo stolbca net.'); {если дошли до конца и нет совпадений}
readln
end.

const n=4; m=4
var a:array[1..n,1..m]of integer;