Поменять элементы K-го столбца на элементы i-ой строки

uses crt;
var
a:array[1..20,1..20] of integer;
m,n,i,j,k,l,x,p:integer;
Begin
clrscr;
write('Размер матрицы n=');
readln(n);
writeln('Исходная матрица:');
for l:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[l,j]:=10*l+j;
    write(a[l,j]:4);
   end;
  writeln;
 end;
repeat
writeln('Введите номер строки и номер столбца для обмена:');;
readln(i,k);
until(i in [1..n])and(k in [1..n]);
if i+k>n then
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[n-j+1,k];
  a[n-j+1,k]:=x;
 end
else if i=k then
for j:=1 to n do
if(j<>i)and(j<>k)then
 begin
  x:=a[i,j];
  a[i,j]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Результат перестановки:');
for l:=1 to n do
 begin
  for j:=1 to n do
  write(a[l,j]:4);
  writeln;
 end;
readln
end.

uses crt;
var
a:array[1..20,1..20] of integer;
m,n,i,j,k,l,x,p1,p2:integer;
Begin
clrscr;
write('Размер матрицы n=');
readln(n);
writeln('Исходная матрица:');
for l:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[l,j]:=10*l+j;
    write(a[l,j]:4);
   end;
  writeln;
 end;
repeat
writeln('Введите номер строки и номер столбца для обмена:');;
readln(i,k);
until(i in [1..n])and(k in [1..n]);
p1:=a[i,k];{запомним на пересечении}
p2:=a[k,k];{запомним в столбцедиагональный элемент}
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,k];{обмениваем все элементы}
  a[j,k]:=x;
 end;
a[i,k]:=p1;{на пересечение возвращаем родной}
a[i,i]:=p2;{диагональный в столбце на диагональ строки}
writeln('Результат перестановки:');
for l:=1 to n do
 begin
  for j:=1 to n do
  write(a[l,j]:4);
  writeln;
 end;
readln
end.