массив

[katrina 18]

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

[Mad_Cat]

i:=1;
while a[i]>=0 do inc(i);
z:=0;
for k:=1 to i-1 do
if a[k]>a[k+1] then begin z:=1; break;end;
if z=0 then writeln('Yeah')
else writeln('NO');