Pascal. Наибольший элемент массива

Я уже опубликовал исходный код программы на Паскале «Pascal. Наименьший элемент массива«, а теперь требуется найти наибольший элемент массива. Привожу исходный код программы с комментариями.