Выяснить, имеются ли в заданной последовательности чисел a1,a2,…,an два подряд идущих нулевых элемента. Если такие элементы имеются, то найти их количество — Pascal(Паскаль)

const k=100;
var
m:array[1..k] of integer;
i,kol:integer;
begin
  randomize;
  kol:=0;
  for i:=1 to k do
  begin
    m[i]:=random(3)-2;
    write(m[i]:2);
  end;
  for i:=1 to 98 do
  begin
    if (m[i]=0)and(m[i+1]=0) then kol:=kol+1;
  end;
  writeln;
  writeln('dva idushih podryad nulevyh elem vstrch ',kol,' raz');
  readln;
end.