Задача. Матрица + процедура Опции

[Jaren]

Faq прочел ( но не смог решить). В поиске похожую тоже не нашел.

Составить программу перестановки четных и нечетных столбцов элементов матрицы. Перестановку столбцов оформить в виде процедуры

[volvo]

В поиске похожую тоже не нашел.

Плохо искал... Описываешь матрицу так, как это сделано здесь:
Программирование с использованием файлов

А потом просто меняешь столбцы с четными и нечетными индексами местами... Вот так:

for i := 1 to (size_col div 2) do begin { size_col - число столбцов !!! }
  swap_cols(mx, 2*i - 1, 2*i);
end;