Как поменять местами два столбца двухмерного массива?

program modul;
uses crt;
const n=4;
var
a:array[1..n,1..n] of integer;
i,j,min,d,max,max2,min2,min3,max3,max4,min4:integer;
{Ввод и вывод массива}
procedure vvod;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(30)-15;
end; end;
 
{Исходный массив}
for i:=1 to n do begin
writeln;
for j:=1 to n do begin
write(a[i,j]:4);
end;
end;
readln
end;
begin
clrscr;
      vvod;
{Находим минимум каждого столбца массива}
for j:=1 to n do
begin
 min:=32764;
  for i:=1 to n do
   begin
     if a[i,j]<min then begin
     min:=a[i,j];
     end;
     end;
     d:=d+1;
  writeln('МИнимум ',d,' столбца*=',min);
          end;
     readln;
     d:=0;
     {Теперь находим максимум каждого столбца*}
for j:=1 to n do
begin
 max:=-30;
  for i:=1 to n do
   begin
 
     if a[i,j]>max then begin
     max:=a[i,j];
     end;
     end;
      d:=d+1;
  writeln('МАксимум',d,' столбца*=',max);
          end;
     readln;
     {Находим максимум каждой строки}
     d:=0;
     for i:=1 to n do
begin
 max2:=-16;
  for j:=1 to n do
   begin
 
     if a[i,j]>max2 then begin
     max2:=a[i,j];
     end;
     end;
      d:=d+1;
  writeln('Максимум',d,' строки = ',max2);
          end;
     readln;
        {Находим минимум каждой строки}
     d:=0;
     for i:=1 to n do
begin
 min2:=100;
  for j:=1 to n do
   begin
 
     if a[i,j]<min2 then begin
     min2:=a[i,j];
     end;
     end;
      d:=d+1;
  writeln('Минимум ',d,' строки = ',min2);
          end;
     readln;
     clrscr;
     vvod;
     {Находим минимум побочной диагонали}
 
     min3:=a[1,n];
     for i:=1 to n do
 
     if min3>a[i,n-i+1] then begin
     min3:=a[i,n-i+1];
     end;
  writeln('Минимум побочной диагонали = ',min3);
readln;
{Максимум побочной диагонали}
 
     max3:=a[i,i];
     for i:=1 to n do
 
     if a[i,n-i+1]>max3 then
     max3:=a[i,n-i+1];
  writeln('Максимум побочной диагонали= ',max3);
readln;
{Максимум главной диагонали}
max4:=a[i,i];
for i:=1 to n do
if max4<a[i,i] then begin max4:=a[i,i];
end;
Writeln('Максимум главной диагонали равно ',max4);
readln;
{Минимум главной диагонали }
min4:=a[i,i];
for i:=1 to n do
if min4>a[i,i] then begin min4:=a[i,i];
end;
Writeln('Минимум главной диагонали равно',min4);
readln
end.

var i,x:integer;
for i:=1 to n do
 begin
  x:=a[i,k];
  a[i,k]:=a[i,p];
  a[i,p]:=x;
 end;

uses crt;
var
a: array[1..10,1..10] of integer;
i,j,buf,n1,n2: integer;
 
begin
write('Введите номера столбцов которые хотите поменять : ');
read(n1);
read(n2);
 
write('Исходная матрица:');
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
 
for i:=1 to 10 do begin
buf:=a[i,n1];
a[i,n1]:=a[i,n2];
a[i,n2]:=buf;
end;
 
writeln('Полученная матрица:');
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(a[i,j]:4);
end;
writeln;
end;
end.