Найти произведение элементов массива, расположенных между первым и вторым нулевыми элементами

var a:array[1..100] of integer;
a0,b0,i,t,n:integer;
begin
read(n);
t:=1;
for i:=1 to n do begin
a[i]:=random(5);
write(a[i],' ');
if (a[i]=0)and(a0=0) then a0:=i+1
else if (a[i]=0) and (b0=0) then b0:=i-1;
end;writeln();
for i:=a0 to b0 do
t:=t*a[i];
write(t);
end.

const
  n=5;
type
  arr=array[1..n] of integer;
var
  z:arr;
  i,f_zero,s_zero,p:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      z[i]:=random(5);
      write(z[i]:4);
    end;
  writeln;  
  i:=1;
  while (z[i]<>0) and (i<=n) do
    inc(i);
  if i>n then
    begin
      writeln('Net nulei.Zavershaem.');
      exit;
    end
  else
    begin
      f_zero:=i;    
      i:=f_zero+1;
      while(z[i]<>0) and (i<=n) do
        inc(i);
      if i>n then
        begin
          writeln('Net vtorogo nulya.Zavershaem.');
          exit;
        end
      else
        begin
          s_zero:=i;
          if s_zero=f_zero+1 then
            begin
              writeln('Mezhdu nulyami net elementov. Zavershaem.');
              exit;
            end
          else
            begin
              p:=1;
              for i:=f_zero+1 to s_zero-1 do
                p:=p*z[i];
              write('Rezultat:',p);
            end;
        end;
    end;
end.