Сжатие массива

program lab5;
var
 X:array[0..10] of integer;
 n,max,sum,a,b,i,j:integer;  
begin 
 randomize;
 max := 1;
    for n:=1 to 10 do 
    begin
        X[n] := random(20)-10;
        write(X[n], ' ');
        if abs(X[max]) < abs(X[n])
        then
            max := n;
    end;
    writeln;
    writeln('Max=',X[max],' stoit na ',max, ' meste');
    sum:=0;
    for n:=1 to 10 do
    begin
   if X[n]>0
   then sum:=sum+X[n];
   end;
   writeln('Summa= ', sum);
   write('Vvedite a ');
   read(a);
   write('Vvedite b ');
   read(b);
   for i:=1 to n do
     if abs(X[n]) in [a..b] then
   begin
   for j:=i to n-1 do
     begin
      X[j]:=X[j+1];
      end;
    X[n]:=0;
       end;
   writeln('');
   for i:=1 To n Do
   write(X[i]:3);
   end.

var
  x:array[1..10] of integer;
  i,j,k,a,b:integer;
begin
  writeln('array:');
  for i:=low(x) to high(x) do begin 
    x[i]:=i;
    write(x[i]:5);
  end;writeln;
  write('a,b=');readln(a,b);
  for i:=low(x) to high(x) do
    if not((x[i]>=a) and (x[i]<=b)) then  begin k:=k+1;x[k]:=x[i];end;
  for i:=k+1 to high(x) do x[i]:=0;
  writeln('New array:');
  for i:=low(x) to high(x) do write(x[i]:5);
    
end.