Двумерный массив, замена элементов Опции

[Gость]

Подскажите пожалста как поменять местами 2 элемента двумерного массива

[guest]

можно вот так (в примере целочисленного массива для 2 строк и двух столбцов)
но некрасиво

Код

var ar: array[1..2,1..2] of integer;
var i,j: byte;
var m,n,m2,n2,b,b2:integer;
begin
for i:=1 to 2 do
begin
  for j:=1 to 2 do
   read(ar[i,j]);
end;
write('введите номера строк и столбцов елементов, которые нужно поменять местами');
read(m,n,m2,n2);
  b:=ar[m,n];
  b2:=ar[m2,n2]:
ar[m,n]:=b2;
ar[m2,n2]:=b;
  for i:=1 to 2 do
   begin
    for j:=1 to 2 do
     writeln(ar[i,j]);
   end;
end.