Найти наибольший элемент массива размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-25;19].

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var m,n:integer;  Write('Введите n и m: '); Read(n,m);  var a:=MatrixRandom(n,m,-25,19);  var max:=-26; // меньше возможного меньшего  for var i:=0 to n-1 do begin    for var j:=0 to m-1 do begin      Write(a[i,j]:4);      if a[i,j]>max then max:=a[i,j]      end;    Writeln    end;  Writeln('Максимальный элемент равен ',max)end.Тестовое решение:Введите n и m: 5 8 -25  -3 -20  -8  -4 -21   9 -16   0  17   9 -22  10  15  -2  11  -1  17 -12 -15   0  -7  17 -16 -22  -9 -18   4  -4  -9   4 -16  -8 -17 -21  11  -4  -7 -12  13Максимальный элемент равен 17