Массив. Удалить все элементы, кратные 7 и принадлежащие заданному промежутку

uses crt;
var m:array[1..40] of integer;
    n,i,j,a,b,k,k1,k2,x:integer;
begin
clrscr;
randomize;
n:=20;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  m[i]:=-45+random(141);
  write(m[i]:4);
 end;
writeln;
repeat
writeln('Введите интервал a,b, a<b:');
readln(a,b);
until a<b;
writeln('Удаление элементов, кратных 7 из интервала [',a,',',b,']');
i:=1;
x:=0;
while i<=n do
if(m[i] mod 7=0)and(m[i]>=a)and(m[i]<=b) then
 begin
  x:=1;
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    m[j]:=m[j+1];
    n:=n-1;
   end;
 end
else i:=i+1;
if x=0 then writeln('Элементов для удаления нет')
else
 begin
  for i:=1 to n do
  write(m[i]:4);
  writeln;
 end;
write('Введите число для вставки k=');
readln(k);
writeln('Вставка элемента ',k,' между элементами с одинаковым знаком:');
i:=1;
x:=0;
while i<n do
if m[i]*m[i+1]>0 then
 begin
  x:=1;
  n:=n+1;
  for j:=n downto i+2 do
  m[j]:=m[j-1];
  m[i+1]:=k;
  i:=i+2;
 end
else i:=i+1;
if x=0 then writeln('Мест для вставки нет')
else
 begin
  for i:=1 to n do
  write(m[i]:4);
  writeln;
 end;
repeat
writeln('Введите номера элементов для перестановки, 1<=k1<k2<=',n);
readln(k1,k2);
until(k1>=1)and(k2>k1)and(k2<=n);
for i:=1 to (k2-k1+1)div 2 do
 begin
  x:=m[k1+i-1];
  m[k1+i-1]:=m[k2-i+1];
  m[k2-i+1]:=x;
 end;
writeln('Перестановка элементов с номерами от ',k1,' до ',k2);
for i:=1 to n do
write(m[i]:4);
readln
end.