Удалить элементы массива под определёнными номерами - PascalABC.NET

const max=100;
var a:array[1..max] of integer;
    n,i,i1,i2,j:integer;
begin
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:4);
 end;
writeln;
i1:=0;
i2:=0;
for i:=1 to n do
if a[i]=0 then
 begin
  if i1=0 then i1:=i
  else if i2=0 then i2:=i;
 end;
if i1=0 then write('В массиве нет 0')
else if i2=0 then write('В массиве нет двух 0')
else if i2-i1=1 then write('Ноли рядом, нет элементов для удаления')
else
 begin
  for i:=1 to i2-i1-1 do
   begin
    for j:=i1+1 to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('Сжатый массив:');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.