Отыскать наибольший элемент в массиве из 11-ти чисел [0, 100] и

var a: array[0..100] of integer; //Обрисовываем массив в разделе переменных.

i, max: integer; //А так же счётчик и переменную, которая будет отвечать за индекс наибольшего элемента.

begin //Начало.

writeln(Заполните массив с клавиатуры); //Запрашиваем у пользователя ввод массива.

for i := 0 to 10 do readln(a[i]); //В цикле его заполняем с клавиатуры.

max := 0; //Индекс наибольшего пока что ноль.

for i := 1 to 11 do //Проходим циклом по всем элементам массива.

if a[i] gt; a[max] then max := i; //Если текущий элемент больше наибольшего - записываем его индекс в max.

writeln(Порядковый номер наибольшего элемента в массиве ,  max); //Выводим индекс наибольшего.

end. //Конец.