одномерный массив поиск первого отрицательного

[qwerty98765]

помогите пожалуста, нужно написать процедуру поиска первого отрицательного в одномерном массиве
q:=0;
for z:=1 to N do begin
if T[N] < 0 then begin
q:=N;
break;
end;
end;


надумалось что-то такое...

если не сложно помогите еще с процедурой поиска всех отрицательных эллементов

[Grag]

Вот так найдешь первый отрицательный элемент в массиве и его индекс

Const
  Range=20;
Var
  A:array[0..Range] of integer;
  idxZero:integer;
  flgZero:boolean;
begin  
i:=0;
flgZero:=false;
idxZero:=0;
repeat  
  if A[i]<0 then
    begin
      flgZero:=true;
      idxZero:=i;
      break
    end;
  Inc(i)
until  (i>Range)
if not flgZero then //отрицательных элементов нет
end;

[Филантроп]

или вот так

q:=0;
for z:=1 to N do begin
if T[z] < 0 then begin
q:=z;
break;
end;
end;

[Филантроп]

////////////////////////