Вычислить произведение элементов массива между первым и последним нулевыми элементами

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k,i1,ip:byte;
    p:longint;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)-4;
  write(a[i],' ');
 end;
writeln;
i1:=0;
i:=1;
while(i<=n) and(i1=0) do
if a[i]=0 then i1:=i
else i:=i+1;
if i1=0 then writeln('В массиве нет нолей')
else
 begin
  writeln('Номер первого нулевого=',i1);
  ip:=0;
  i:=n;
  while(i>=1)and(ip=0) do
  if a[i]=0 then ip:=i
  else i:=i-1;
  if ip-i1<2 then writeln('Между первым и последним нулевыми нет элементов')
  else
   begin
    writeln('Номер последнего нулевого=',ip);
    p:=1;
    for i:=i1+1 to ip-1 do
    p:=p*a[i];
    writeln('Произведение между первым и последним нулевыми=',p);
   end;
 end;
k:=0;
for i:=1 to n do
if a[i] >=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.