Такой вопрос.
Как в массиве выделить найденные элементы?
for j:=1 to m do begin {поиск минимальных элементов в столбцах}
min[j]:=1;
for i:=2 to n do if a[i,j]<a[min[j],j] then min[j]:=i;
end;
for i:=1 to n do begin {вывод матрицы}
for j:=1 to m do begin
if i=min[j] then TextColor(Red) else TextColor(LightGray);
Write(a[i,j]:4)
end;
WriteLn
end;