Найти максимальный элемент (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.