Мога да ти кажа каква е логиката, но не знам синтаксиса на Delphi.
Идеята е предваиртелно да въведеш var j = (integer).
След имаш var minimalno_namerena_stoinost = (double) / (float)
След това с цикъл обхождаш всички колони на матрицата една по една.
При всеки елемент сравняваш стойността с minimalno_namerena_stoinost. Ако е по-малко присвояваш новата стойност на minimalno_namerena_stoinost)
foreach(matrix_colums as element){
if(element<minimalno_namerena_stoinost) { minimalno_namerena_stoinost = element;}
}
