В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждой строке наибольший и наименьший элементы.

Var a:array[1 ... 100,1 ... 100] of integer; i, j, n, m, max, min:integer; begin write ('Введите количество строк: ') ; read (n) ; writeln; write ('Введите количество элементов в строке: ') ; read (m) ; writeln; writeln ('Введите массив: ') ; for i:=1 to n do begin for j:=1 to m do begin write (' a[', i,',', j,']=') ; read (a[i, j]) ; end; writeln; end; writeln; writeln ('Исходный массив: ') ; for i:=1 to n do begin for j:=1 to m do write (a[i, j],' ') ; writeln; end; writeln; writeln ('Конечный массив: ') ; for i:=1 to n do begin min:=a[i, 1]; max:=a[i, 1]; for j:=2 to m do begin if (min>a[i, j]) then min:=a[i, j]; if (max