Найти максимальный элемент ( Max) численного массива на языке паскаля

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