В двумерном массиве 4 на 4 поменять местами третью строку и второй столбец

Program M;
Uses crt;
Const
 n=4;
Var
 a:array[1..n,1..n] of integer;
 c:array[1..n] of integer;
 i,j,y:integer;
Begin
randomize;
For i:=1 to n do
For j:=1 to n do
 a[i,j]:= Random(10);
 
Write ('Èñõîäíûé ìàññèâ:');
writeln;
For i:=1 to n do
 begin
For j:=1 to n do
  Write (a[i,j],', ');
  writeln;
end;
 
  i:=3;
 For j:=1 to n do
  c[j]:=a[i,j];
  
  j:=2;
For i:=1 to n do begin
 y:=a[i,j];
 a[i,j]:=c[i];
 c[i]:=y;
  end;
 
  i:=3;
For j:=1 to n do
 a[i,j]:=c[j];
 
 Write ('Ïîëó÷èâøèéñÿ ìàññèâ:');
 writeln;
For i:=1 to n do
 begin
For j:=1 to n do
  Write (a[i,j],', ');
  writeln;
 end;
 
End.

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j,k,m:byte;
    x,y,z:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
k:=3;{строка}
m:=2;{столбец}
x:=a[k,k];{запомним элементы на пересечениях(до и после обмена)}
y:=a[m,m];
for i:=1 to n do
if not(i in [k,m]) then{эти элементы пока не трогаем}
 begin
  z:=a[k,i];
  a[k,i]:=a[i,m];{остальные меняем}
  a[i,m]:=z;
 end;
a[k,k]:=y;{меняем элементы с пересечений}
a[m,m]:=x;
writeln('Обмен строки ',k,' и столбца ',m);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.