Информатика. Pascal. Одномерный массив

Чтобы посчитать сумму отрицательных элементов одномерного массива на языке Pascal, можно воспользоваться следующим алгоритмом:
1. Присвоить переменной, в которой будет храниться сумма, значение 0. 
2. В цикле перебрать все элементы массива. Если очередной элемент меньше нуля, то добавить его значение к переменной с суммой. 
3. Вывести найденную сумму на экран. 
Чтобы вычислить максимальный элемент одномерного массива, можно воспользоваться следующим алгоритмом:
1. Присвоить переменной, в которой будет храниться максимум, значение меньше, чем возможное в массиве. 
2. В цикле перебрать все элементы массива. Если очередной элемент больше значения, которое хранится в переменной для максимума, то поменять значение этой переменной на текущий элемент. 
3. Вывести найденный максимальный элемент на
экран.