матрица, мах в столбцах Опции

[монтик]

у меня при работе этой проги считается только последний мах элемент,помогите с кодом.Напишите
пожалуйста правильный код этой задачи:В матрице целых чисел м*н найти все самые нижние мах элементы по всем столбцам,вывести на экран их значение и позицию в матрице.

[монтик]

program massivhiki;
uses crt;
type
massiv=array[1..15,1..15] of integer;
var
i,j,n,nmax,m,lmax:integer;
max:integer;
a:massiv;
begin
clrscr;
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
max:=a[1,1];
if a[i,j]>max then
begin
max:=a[i,j];
nmax:=i;
lmax:=j;
end;
end;
writeln;
writeln('matrica m*n');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln
end;
writeln;
writeln('maks element stolbca:');
writeln;
write(max,' ego pozicia:',nmax,',',lmax);
writeln;
readln
end.
Немогу найти ошибку,прога должна выводить мах элементы всех стобцов,а не одного.А также их позиции.