Дан двумерный массив a[n,m]. поменять местами второй и последний столбцы.

Если m количество столбцов то:

var a: array [1..1000,1..1000];

begin

readln(n,m);

For i:=1 to n do begin 
 a[i,2]:=a[i,2]+a[i,m];
 a[i,m]:=a[i,2]-a[i,m];
 a[i,2]:=a[i,2]-a[i,m];
end;

end.