Дан двумерный массив A[m,n]/ Найти минимальное и максимальное значение массива. Результаты выдать на экран.НУЖЕН ПАСКАЛЬ!!!!!!!!!!!!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Min=',a.ElementsByRow.Min,', max=',a.ElementsByRow.Max)
end.


Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Исходный массив [5,10] ***
 -17  38  59   5 -22 -16  -4   2 -35 -97
  52  47  -4 -83 -61  93 -27 -77 -73 -33
  89  94  26 -27 -54  -7 -40 -70  66 -32
  47 -80  -2 -10  51 -17 -13 -46 -70  19
 -64  29 -54 -80 -98 -27 -78   2  97   0
----------------------------------------
Min=-98, max=97