Дана матрица 4 на 6 найти минимальный и максимальный элемент в этой матрице.Пожалуйста посчитайте ПОЖАЛУЙСТА!!!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(4,6,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow; // последовательность не хранится в памяти
  Writeln('Max=',s.Max,', min=',s.Min)
end.


*** Исходная матрица ***
  55   8 -53  99  55  75
  48  13 -57 -81 -82  94
  22   7  53  14 -10 -21
 -73 -55 -39  79   1 -35
------------------------
Max=99, min=-82