Дана матрица размерностью n*m.
найти в каждой строке max и min элемент

const  m1 = 20;  n1 = 20;var  x: array[1..m1, 1..n1] of integer;  i, j, m, n, mx, mn: integer;begin  Write('Введите через пробел число строк и столбцов матрицы: ');  Readln(m, n);  Randomize;  writeln(#13#10, 'Исходная матрица');  for i := 1 to m do  begin    for j := 1 to n do    begin      x[i, j] := Random(100) - 50;      Write(x[i, j]:5)    end;    Writeln  end;  for i := 1 to m do  begin    mx := x[i, 1]; mn := mx;    for j := 2 to n do      if mx < x[i, j] then mx := x[i, j]      else if mn > x[i, j] then mn := x[i, j];    Writeln('В строке ', i, ' мin=', mn, ', max=', mx)  endend.Тестовое решение:Введите через пробел число строк и столбцов матрицы: 5 8Исходная матрица   14   35    4   16   44  -14   47   36  -23  -40   16   43   40   48   21   46   23   30  -18   25  -43   -5   -3   37   24  -26    9  -37   36   23  -33   36   30   46   17  -18  -34  -35   36   28В строке 1 мin=-14, max=47В строке 2 мin=-40, max=48В строке 3 мin=-43, max=37В строке 4 мin=-37, max=36В строке 5 мin=-35, max=46