Програмку я написал все работает.
for J:=1 to m do begin
min:=a[1,j]; minj:=1;
for i:=1 to n do begin
if a[i,j]<min then min:=A[i,j];
minj:=j;
end;
writeln ('Минимальный элемент столбца № ',minj,' =',min);
Остальное приводить не стал, там просто описание переменных и ввод/вывод матрицы.
Вот только вопрос почему при описании цикла первым указывается столбец
просто перебрал кучу вариантов и только в этом работало как надо.