Отыскать наибольший элемент ( 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] gt; max) then max := arr[i]; // сопоставляем элемент массива с максимумом.
      end;
   writeln(Наибольший элемент массива равен: , max); // вывод строчки на экран.
End.