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