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

[Beseech]

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

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

[nikita182]

uses crt;

type
 mass = array [1..8] of integer;
var
 m : mass;
 i : integer;

begin
 clrscr;
 i := 1;
 writeln('vvoditi:');
 while i < 9 do begin
  readln (m[i]);
  i := i + 1;
 end;
 i := 1;
 while i < 9 do begin
  if m[i] < 0 then begin
   writeln(m[i],' - vot tebe'); readkey; halt;
  end;
  i := i + 1;
 end;
 writeln('netu');
 readkey;
end.

[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');

[Beseech]

спс,оч благодарен,терь по решонному буду разбираться...