Дан одномерный массив А, состоящий из N целых чисел. Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b]. Освободившиеся в конце массива элементы заполнить нулями — Pascal(Паскаль)

uses crt;
var
   a:array[1..100] of integer;
   i,j,n,a1,b:integer;
procedure del(m:integer);
begin
     for j:=m+1 to n do
         a[j-1]:=a[j];
     a[n]:=0;
end;
begin
     clrscr;
     writeln('razmernost, a , b');
     readln(n,a1,b);
     writeln('elementi');
     for i:=1 to n do
         readln(a[i]);
     for i:=1 to n do
         if (a[i]>a1) and (a[i]<b) then
            del(i);
     for i:=1 to n do
         write(a[i],' ');
     writeln;
 
 
     readln;
end.