Поменять местами i-й столбец и j-ю строку матрицы

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,p,q,tmp: integer;
begin
  randomize;
  writeln('Èñõîäíûé ìàññèâ:');
  write('Ââåäèòå ðàçìåðû ìàòðèöû n: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  repeat
    write('Ââåäèòå äâà ÷èñëà: ');
    readln(p,q);
  until (p in[1..n])and(q in[1..n]);
  for i:=1 to n do
  begin
    tmp:=a[p,i];
    a[p,i]:=a[i,q];
    a[i,q]:=tmp;
  end;
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

var
  a: array[1..10,1..10] of integer;
  n,i,j,p,q,tmp: integer;
begin
  randomize;
  writeln('Исходный массив:');
  write('Введите размеры матрицы n: ');
  readln(n);
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  write('Введите два числа <=10 : ');
  readln(p,q);
  for i:=1 to n do
  begin
    tmp:=a[p,i];
    a[p,i]:=a[i,q];
    a[i,q]:=tmp;
  end;
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.