Двумерные массивы, Поменять столбцы местами Опции

[Eichhorn]

Я, наверное, всем уже надоела со своими задачками, но всё таки спрошу ещё.(Нам их просто задали 30 штук, а я все эти темы проболела )
Есть задача:
Дана матрица размера M*N. Поменять местами столбцы 1 и столбец, содержащий минимальное количество нечетных элементов.
Вот текст программы:

const
m=15;
n=5;
var
a:array[1..m,1..n] of integer;
i,j,f,k:integer;
s,min:longint;

begin
randomize;
for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(51);
      write(a[i,j]:3);
    end;
    writeln;
  end;
min:=maxlongint;
for j:=1 to n do
s:=0;
        begin
        for i:=1 to m do
                if a[i,j] mod 2=1 then s:=s+1;
                writeln('nechetn ',s);
                readln;
        if s<min then
                begin
                f:=j;
                min:=s;
                end;
        end;

writeln('stolbez ',f);
readln;
for i:=1 to m do
        begin
                for j:=1 to n do
                begin
                if j=f then
                        begin
                        k:=a[i,j];
                        a[i,j]:=a[i,1];
                        a[i,1]:=k;
                        end;
write(a[i,j]:3);
                end;
                writeln;
        end;
readln;
end.

Эта программа не меняет местами столбцы, а только переписывает элементы 1 столбца в столбец с минимальным количеством нечетных элементов. Можете подсказать что нужно доделать?