Такой вопрос.
Как в массиве выделить найденные элементы?
 
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;