Два ноля подряд в массиве

program lalala;
const n=5;
type julia=array[1..n] of real;
var a:julia;k,i:integer;p:real;
begin
k:=0;
p:=1;
write('Введите элементы массива');
writeln;
for i:=1 to n do
read(a[i]);
writeln;
begin
for i:=1 to n do
if (a[i]=0) and (a[i+1]=0) then 
if a[i]<0 then
inc(k)
else 
begin
if a[i]>0 then 
p:=p*a[i];
end;
end;
writeln('kolvo' ,k);
writeln('proizv', p);
end.

program lalala;
const n=5;
type julia=array[1..n] of real;
var a:julia;
    b,k,i:integer;
    p:real;
begin
k:=0;
p:=1;
write('Введите элементы массива');
writeln;
for i:=1 to n do
read(a[i]);
writeln;
b:=0;
i:=1;
while(i<n)and(b=0) do
if (a[i]=0) and (a[i+1]=0) then b:=1
else inc(i);
if b=1 then
 begin
  writeln('Есть два 0 подряд');
  k:=0;
  for i:=1 to n do
  if a[i]<0 then inc(k);
  writeln('Количество отрицательных=',k);
 end
else
 begin
  writeln('Нет двух 0 подряд');
  p:=1;
  k:=0;
  for i:=1 to n do
  if a[i]>0 then
   begin
    k:=1;
    p:=p*a[i];
   end;
  write('Произведение положительных=');
  if k=0 then write(0)
  else write(p)
 end;
end.