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

var   i, max, n : integer;       // объявляем переменные целочисленного типа.   arr : array of integer;   // объявляем массив.Begin    writeln(\'Введите размерность массива:\');     // вывод строки на экран.   read(n);                                                     // считываем размерность массива.   setlength(arr,n);                                        // выделяем память под массив.   for i:= 0 to (n-1) do                                 // начало цикла.      begin          arr[i] := random(-25, 19);       // заполняем элемент массива числом из диапазона -25; 19.          if (i = 0) then max := arr[i];                     // считаем первый элемент - максимальным.          if (arr[i] > max) then max := arr[i];          // сравниваем элемент с максимумом.      end;   writeln(\'Максимальный элемент массива равен: \', max);    // вывод строки на экран.End.