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

[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.

[volvo]

guest,

но некрасиво

Как тогда будет красиво, не подскажешь? Очень интересно было бы посмотреть...

b:=ar[m,n];
ar[m,n]:=ar[m2,n2];
ar[m2,n2]:=b;

Так?

[guest]

guest,
Как тогда будет красиво, не подскажешь? Очень интересно было бы посмотреть...

b:=ar[m,n];
ar[m,n]:=ar[m2,n2];
ar[m2,n2]:=b;

Так?

ах, если бы я знал мой опыт программирования составляет три недели и я подумал, что за такой код гуру закидают меня камнями но как по другому я не знаю

[Гость]

guest,
Как тогда будет красиво, не подскажешь? Очень интересно было бы посмотреть...

b:=ar[m,n];
ar[m,n]:=ar[m2,n2];
ar[m2,n2]:=b;

Так?

да, так лучше - экономим одну переменную.. по крайней мере

[Gость]

Всем спасибо - уже сам допёр!