Удалить в одномерном массиве

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,n1,i,j,d1,d2:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
n1:=n;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
repeat
writeln('Введите диапазон для удаления d1<d2');
read(d1,d2);
until d2>d1;
i:=1;
while i<=n do
if (a[i]>=d1)and(a[i]<=d2) then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1
   end
 end
else i:=i+1;
if n=n1 then write('Нет элементов для удаления')
else if n=0 then write('Все элементы удалены')
else
 begin
  writeln('Удаление элементов из диапазона [',d1,',',d2,']');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.

i:=1;//начнем с первого
while i<=n do//пока есть элементы
if (a[i]>=d1)and(a[i]<=d2) then //если элемент в диапазоне
 begin
  if i=n then n:=n-1 //если последний, уменьшаем размер массива
  else //иначе
   begin
    for j:=i to n-1 do//сдвигаем на него конец массив
    a[j]:=a[j+1];
    n:=n-1 //уменьшаем размер
   end
 end
else i:=i+1; //если не в диапазоне, пропускаем

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,n1,i,j,d1,d2:integer;
    f:text;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
n1:=n;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
repeat
writeln('Введите диапазон для удаления d1<d2');
read(d1,d2);
until d2>d1;
i:=1;
while i<=n do
if (a[i]>=d1)and(a[i]<=d2) then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1
   end
 end
else i:=i+1;
assign(f,'result.txt');
rewrite(f);
if n=n1 then
 begin
  write('Нет элементов для удаления');
  writeln(f,'Нет элементов для удаления')
 end
else if n=0 then
 begin
  write('Все элементы удалены');
  writeln(f,'Все элементы удалены')
 end
else
 begin
  writeln('Удаление элементов из диапазона [',d1,',',d2,']');
  writeln(f,'Удаление элементов из диапазона [',d1,',',d2,']');
  for i:=1 to n do
   begin
    write(a[i]:4);
    write(f,a[i]:4);
   end;
 end;
close(f)
end.