Исправьте ошибку в Паскаль!!

[W_P]

Дана матрица. Необходимо найти элемент, который в строке будет максимальным(минимальным), а в столбце минимальным(максимальным) и вывести его. Таких элементов может быть и несколько а может и не быть совсем.
Код написал, а он чет не работает, а точнее не ищет такие элементы!?
НаЙдИтЕ ОШИБКУ КТо МОЖЕТ! Заранее спaсибо!

[W_P]

Program s1;
uses crt;
type
mas=array[1..25,1..25] of integer;
mass=array[1..25] of integer;
var
a:mas;
n,k,m:integer;
procedure vvod(var a:mas; var n,m:integer);
var
i,j:integer;
begin
     writeln('Vvedite kolichestvo strok/stolbcov ==>>');
     readln(n,m);
                 for i:=1 to n do
                 for j:=1 to m do
                 begin
                      writeln('Vvedite [',i,j,'] element matrici ==>>');
                      readln(a[i,j]);
                 end;
end;
procedure vivod(a:mas;n,m:integer);
var
i,j:integer;
begin
     writeln;
     writeln('Ishodnaya matrica ==>>');
     writeln;
             for i:=1 to n do
             for j:=1 to m do
             writeln('a[',i,j,']=',a[i,j]);
end;
procedure tochka(a:mas;n,m:integer);
var
max,min,maxx,minn:integer;
i,j:integer;
begin

     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               max:=a[i,j];
               min:=a[i,j];
               maxx:=a[i,j];
               minn:=a[i,j];
                for j:=1 to m do
                begin
                     if a[i,j]>max then max:=a[i,j];
                     if a[i,j]<min then min:=a[i,j];
                end;
                if a[i,j]=max then
                begin
                     for i:=1 to n do
                     begin
                         if a[i,j]<minn then minn:=a[i,j];
                     end;
                     if a[i,j]=minn then
                     begin

                          writeln(a[i,j]);
                     end;
                end;
                if a[i,j]=min then
                begin
                     for i:=1 to n do
                     begin
                          if a[i,j]>maxx then maxx:=a[i,j];
                     end;
                     if a[i,j]=maxx then
                     begin

                          writeln(a[i,j]);
                     end;
                end;
                end;
                end;
end;
begin
vvod(a,n,m);
vivod(a,n,m);
tochka(a,n,m);
readkey;
end.