кто-нибудь знает как поменять местами столбцы с максимальным и минимальным элементами матрицы (в паскале), очень нужно..

program nazvanie;
const n = 10; {кол - во строк}
const m = 20; {кол - во столбцов}
var a: array [ 1 .. n, 1 .. m ) of integer;
c, i, j, imax, jmax, imin, jmin : integer;
begin
randomize;
{заполняется матрица случайными числами от 0 до 99}
for i := 1 to n do
for j := 1 to m do
a [ i, j ] := random (100);
{поиск минимума и максимума}
for i := 1 to n do
for j := 1 to m do begin
if ( i = 1) and ( j = 1) or ( a [ i, j ] < a [ imin, jmin ]) then
begin
imin := i;
jmin := j;
end;
if ( i = 1) and ( j = 1) or ( a [ i, j ] > a [ imax, jmax ]) then
begin
imax := i;
jmax := j;
end; end;
{меняются местами столбцы}
for i := 1 to n do begin
c := a [ i, jmax ];
a [ i, jmax ] := a [ i, jmin ];
a [ i, jmin ] := c;
end;
{Здесь какой-нибудь вывод на экран}
end.

ну я знаю

так. вот бы ещё увидеть всё это как процедуру