В массиве Определить порядковый номер первого числа, меньше заданного n.

[Andrew123456]

Дан непустой и упорядоченный по возрастанию массив целых чисел. Определить порядковый номер первого числа, меньше заданного n. Если таких чисел в последовательности нет, то на экран должно быть выведено соответсвующее сообщение

[Serge_Bliznykov]

если задание приведено верно и я ничего не путаю, то достаточно проверить только одно первое значение массива,
если оно меньше N - то выдать ответ 1
иначе выдать сообщение, что таких чисел в последовательности нет.

т.е. программа, по сути - один if:

if A[i]<n then WriteLn(1)
else WriteLn('таких чисел в последовательности нет');