В последовательности a[1],a[2]….a[n] вычислить количество нулей, стоящих перед первым отрицательным членом — Pascal(Паскаль)

const
  n = 10;

var
  i, kol, ind: integer;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := 10 - random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  kol := 0;
  ind := 0;
  for i := 1 to n do
    if a[i] >= 0 then
    begin
      if a[i] = 0 then
        inc(kol);
    end
    else
    begin
      ind := i;
      break;
    end;

  writeln('-------', kol);

end.