В матрице поменять столбец, в котором находится максимальный элемент с первым столбцом

 m = 5;
 n = 5; % задаем размеры матрицы
 A = rand(m, n);
 dlmwrite('forum.txt', A, 'delimiter', ' ', 'precision', '%.3f'); % записали произвольную матрицу в файл
 fid = fopen('forum.txt'); % открыли записанный файл для чтения
 T = textscan(fid, '%f%f%f%f%f');
 fclose(fid);
 A = zeros(m, n);
 A(:, 1) = T{1};
 A(:, 2) = T{2};
 A(:, 3) = T{3};
 A(:, 4) = T{4};
 A(:, 5) = T{5}; % прочли матрицу
 
 variables = {'ИСХОДНАЯ МАТРИЦА'}; 
 sw = ['' sprintf('%s', variables{:}) sprintf('\n')];
 sw = [sw sprintf('%.3f %.3f %.3f %.3f %.3f \n', A')];
 fid = fopen('forum2.txt', 'wt');
 fprintf(fid, '%s', sw); % записали исходную матрицу в другой файл
 fclose(fid);
 
 for i = 1:m
     [m, n] = max(A(i, :)); % типа чтобы цикл был
     %  m - максимальное значение в строке
     %  n - номер столбца с макс. знач.
     mm(i) = m;
     nn(i) = n;
 end
[ind, k] = max(mm);
max = A(:, nn(k));
first = A(:, 1);
A(:, nn(k)) = first;
A(:, 1) = max;
variables = {'ПРЕОБРАЗОВАННАЯ МАТРИЦА'}; 
sw = ['' sprintf('%s', variables{:}) sprintf('\n')];
sw = [sw sprintf('%.3f %.3f %.3f %.3f %.3f \n', A')];
fid = fopen('forum2.txt', 'at');
fprintf(fid, '%s', sw); % записали преобразованную матрицу в тот же файл
fclose(fid);