Одномерный массив, Определить имеется хоть 1 отрицательный элемент Опции

[Beseech]

Определить, имеется ли в заданном одномерном массиве хотя бы один отрицательный элемент.
Указание: использовать цикл с неизвестным заранее числом повторений.

Вот,ненаю как решить,как сортировать по убыванию и по возрастанию разобрался норм, а вот с этим немогу.Помогите пожалуйста кто может,по решонному легче разобраться...

[volvo]

Как вариант второй части:

 i := 1;
 while (i < 9) and (m[i] >= 0) do i := i + 1;
 if i < 9 then
   writeln(m[i],' - vot tebe')
 else writeln('netu');