Составить программу, которая меняет местами два любых элемента двумерного массива - Turbo Pascal - Ответ 4703800

uses crt;
 
const
  nmax = 10;
  mmax = 10;
 
var
  a : array [1..nmax, 1..mmax] of integer;
  i, j, n, m, temp : integer;
  f_i, f_j, s_i, s_j : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество строк (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не более ', mmax, ') = ');
    Readln(m);
  until m in [1..mmax];  
  writeln('Введите элементы: ');
  for i := 1 to n do
    for j := 1 to m do readln(a[i, j]);
  ClrScr;
  writeln('Исходный массив: ');
  for i := 1 to n do 
    begin
      for j := 1 to m do Write(a[i, j], ' ');
      Writeln;
    end;
  write('Первый элемент для обмена: ');
  readln(f_i, f_j);
  write('Второй элемент для обмена: ');
  readln(s_i, s_j);
  temp := a[f_i, f_j];
  a[f_i, f_j] := a[s_i, s_j];
  a[s_i, s_j] := temp;
  writeln('Новый массив: ');
  for i := 1 to n do 
    begin
      for j := 1 to m do Write(a[i, j], ' ');
      Writeln;
    end;  
end.