поменять местами средние столбцы

[Boys]

поменять местами средние столбцы. для этого требуется процедура swap.
вот начало:

program Ex1;
const n=5; m=6;
type dmyarray=array[1..n,1..m] of integer;
var a : dmyarray;
procedure init(var x : dmyarray);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to m do
  x[i,j]:=random(50);
end;
procedure print(x : dmyarray);
var i,j:integer;
begin
for i:=1 to n do
 begin
 for j:=1 to m do
  write(x[i,j]:5);
 writeln;
 end;
writeln;
end;

[Serge_Bliznykov]

допустим, есть матрица 3x6

 1  2  3  4  5  6
11 12 13 14 15 16
21 22 23 24 25 26

после SWAP что должно быть?

[Boys]

3 и 4 столбцы должны поменяться местами

[evg_m]

для этого требуется процедура swap.

procedure swap(var x: dmarray; n1, n2: integer);
var
  n: integer;
begin
  n:=length(x, 1);
  assert(n1>=0 and n1<n);
  assert(n2>=0 and n2<n);

  for j:=0 to length(x, 2)-1 do begin
     t:=x[n1, j];
     x[n1, j]:=x[n2, j];
     x[n2, j]:=t;
  end;   
end;

Внимание!!! Это не код!! Copy-Paste не получится! Не компилируется.
Только как пример того что должно БЫТЬ у вас.