Pascal. Как найти самое большое число из 10 чисел?

поиск мах в массиве
max:=a [ 1 ];
for i :=2 to 10 do
if a [ i ] > max then max:=a [ i ];

Алгоритм заключается в следующем:

1. Объявить большим 1 число.
2. Перейти к следующему числу
3. Если оно больше объявленного, то заменить объявленное большее на него.
4. Если номер числа меньше 10, то перейти к п. 2
5. Вывести найденное большее.
6. Конец

Создаете for цикл на 10 проходов, в нем добавляете в массив 10 чисел, вводите переменную (к примеру с: integer) затем создаете еще один цикл и в нем перебираете каждое значение массива по условию
if(ar[ i ] > c) then c:= ar[ i ];