Сжать массив, удалив из него все элементы, модуль которых находится в интервале

const
n=10;
var
i,j,a,b:integer;
Ar:Array [1..n] Of Integer;
Begin
writeln('BBeDuTe a u b');
readln(a,b);
For i:=1 To n Do
                Begin
                Ar[i]:=random(n-5);
                write(ar[i]:3);
                End;
For i:=1 To n Do
               if ar[i] in [a..b] then
                             Begin
                             For j:=i to n-1 do
                                              begin
                                              ar[j]:=ar[j+1];
                                              end;
                             ar[n]:=0;
                             end;
writeln('');
For i:=1 To n Do
write(ar[i]:3);
End.

const
n=10;
var
i,j,a,b:integer;
Ar:Array [1..n] Of Integer;
Begin
writeln('BBeDuTe a u b');// вводим интервалы
readln(a,b);
For i:=1 To n Do  //заполняем массив
                Begin
                Ar[i]:=random(n-5);
                write(ar[i]:3);
                End;
For i:=1 To n Do   //тут удаляем элементы
               if abs(ar[i]) in [a..b] then
                             Begin
                             For j:=i to n-1 do
                                              begin
                                              ar[j]:=ar[j+1];
                                              end;
                             ar[n]:=0;
                             end;
writeln('');
For i:=1 To n Do
write(ar[i]:3);
End.