Перестановка столбцов

[bagfinder]

Есть матрица, задаваемая пользователем.
Нужно переставить первый столбец со столбцом, содержащим наибольший элемент матрицы.

Функцию с определением максимального столбца я сделал так:

Function NomMax(kStr,kStb:Tind; Const M:Tmatr):Tind;
Var i,j,nmax:Tind; max:Integer;
Begin
     max:=M[1,1]; nmax:=1;
     For j:=1 To kStb
     Do For i:=1 To kStr
        Do If M[i,j]>max
           Then Begin max:=M[i,j];
                      nmax:=j
                End;
     NomMax:=nmax
End;

И еще у меня есть функция самой перестановки. (Но дело в том, что писалась она под другое условие - под перестановку минимального с максимальным столбцом. А тут не нужно определять минимальный):

Procedure ObmenStr(kStr,kStb:Tind; Var M:Tmatr);
Var stbM:Integer; i,nmin,nmax:Tind;
Begin
     nmin:=NomMin(kStr,kStb,M);
     nmax:=NomMax(kStr,kStb,M);

     If nmin<>nmax
     Then Begin
                For i:=1 to kStr
                Do Begin
                        stbM := M[i,nmax];
                        M[i,nmax] := M[i,nmin];
                        M[i,nmin] := stbM;


                   End;
          End;

End; { ObmenStr }

Так вот. Как подстроить процедуру перестановки на перестановку первого и максимального столбца nmax ? Спасибо.

[Serge_Bliznykov]

достаточно заменить строчку:

nmin:=NomMin(kStr,kStb,M);

на строчку:

nmin:=1;