Три подряд отриц. елемента. паскаль

[Wild_klas]

Подскажите пожалуйста, как в массиве определить имеется ли подряд три отрицательных элемента?

[Hacker19_90]

kol := 0;
for i := 1 to n do
begin
     if Massiv[i] < 0 then
         Inc(kol)
     if kol = 3 then
     begin
          Writeln('Есть');
          break;
     end; 
end;

или

for i := 1 to (n - 2) do
    if (Massiv[i] < 0) and (Massiv[i+1] < 0) and (Massiv[i+2] < 0) then
    begin
        Writeln('Есть');
        break;
    end;

[Wild_klas]

Hacker19_90, спасибо!