Составить программу одномерного массива.подсчитать количество чисел,не принадлежащих промежутку (х,у]

во вложении спрашивайте, что непонятно

program Program1; var Arr: array[-100..100] of integer; Arr2: array[-100..100] of integer; i, n, x, y: integer; begin      randomize;      write('Введите количество элементов в массиве: ');      readln(n);      for i := 1 to n do Arr[i] := random(100) - random(100);      writeln('Весь массив: ');      for i := 1 to n do write(Arr[i], ' ');      writeln();      write('Введите X и Y: ');      read(x, y);      for i := 1 to x - 1  do write(Arr[i], ' ');      for i := y + 1 to n  do write(Arr[i], ' '); end.