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

var x:array[1..100] of integer;
    n,a,b,i,s:integer;
begin
repeat
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  x[i]:=1+random(50);
  write(x[i]:4);
 end;
writeln;
repeat
writeln('Введите 2 числа a<b');
readln(a,b);
until a<b;
s:=0;
for i:=1 to n do
if(x[i]<=a)or(x[i]>=b) then s:=s+x[i];
write('Сумма элементов не входящих в интервал (',a,'..',b,')=',s)
end.

var x:array[1..100] of integer;
    n,a,b,i,k:integer;
begin
repeat
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  x[i]:=1+random(50);
  write(x[i]:4);
  if i mod 15=0 then writeln;
 end;
writeln;
repeat
writeln('Введите 2 числа a<b');
readln(a,b);
until a<b;
k:=0;
writeln('Элементы не входящие в диапазон [',a+1,'..',b-1,'] и их номера');
for i:=1 to n do
if(x[i]<=a)or(x[i]>=b) then
 begin
  inc(k);
  write('a[',i:2,']=',x[i]:2,' ');
  if k mod 8=0 then writeln;
 end;
if k=0 then write('Таких элементов нет');
end.