Нужно найти минимальный элемент каждого столбца матрицы
Програмку я написал все работает.

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);

Остальное приводить не стал, там просто описание переменных и ввод/вывод матрицы.
Вот только вопрос почему при описании цикла первым указывается столбец , а затем уже строка ,
просто перебрал кучу вариантов и только в этом работало как надо.

если перевести на русский:

то есть так мы выбираем столбец и идем по его элементам.
если бы искали минимум в строке - первый цикл был бы по строкам.

for i:=1 to n do begin

можешь начинать не с 1, а с 2 - первый элемент ты уже рассмотрел.

А зачем варианты-то перебирать? В задании же ясно сказано: минимум в столбце, значит первый индекс матрицы (номер строки) изменяется быстрее... Отсюда следует, что первый индекс должен меняться во внутреннем цикле.