Дана матрица размерностью 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)   end end. тестовое решение: введите через пробел число строк и столбцов матрицы: 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

544 бита 34*16=544. можно в посчитать.