Я, наверное, всем уже надоела со своими задачками, но всё таки спрошу ещё.(Нам их просто задали 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 столбца в столбец с минимальным количеством нечетных элементов. Можете подсказать что нужно доделать?

Ты сильно перемудрила в конце. Надо переставить два столбца - так и переставляй ИХ, а не ходи-блуждай по всему массиву.. ))
И не надо совмещать расчеты с выводом! это тебе потом боком выйдет.
Ну, и вообще так, полюбуйся хоть на правильный формат, прежде чем поломаешь снова..

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 begin
    s:=0;
    for i:=1 to m do
      if Odd(a[i,j]) then s:=s+1;
    writeln('nechetn ',s);
    if s<min then begin
      f:=j;
      min:=s;
    end;
  end;

  writeln('stolbez ',f);
  for i:=1 to m do begin
    k:=a[i,1];
    a[i,1]:=a[i,f];
    a[i,f]:=k;
  end;

  for i:=1 to m do begin
    for j:=1 to n do write(a[i,j]:3);
    writeln;
  end;

  readln;
end.

Добавлено через 1 мин.
Offtop:
а что значит твой ник? Eichhorn - это имя лошади? щас погуглю.. ))

Добавлено через 2 мин.
Это белка! но не совсем.. ))
фамилия от белки. Белкин?

О, спасибо! А я думала, что a[i,f] нельзя писать... Ладно, иду дальше решать)))

Добавлено через 6 мин.

Просто меня Белкой называют некоторые люди. За любовь к кедровым орехам. И маму у меня Белкой тоже называют. Но у неё ещё с того времени как она в университете училась.

Небольшой совет: если не знаешь, можно писать или нельзя - пробуй. Это же не неприоичное слово на заборе..

Спасибо! +1