Составить программу определения количества элементов, принадлежащих отрезку - Free Pascal

Формулировка задачи:

Для одномерного целочисленного массива составить программу определения количества элементов, принадлежащих отрезку [х1;х2]. Вывести на печать исходный массив, количество таких элементов и сами элементы

Решение задачи: «Составить программу определения количества элементов, принадлежащих отрезку»

Листинг программы

var
  a: array[1..100] of integer;
  i,n,x1,x2,k: integer;
Begin
  write('Введите размерность массива (<100):');
  readln(n);
  write('Введите X1:');
  readln(x1);
  write('Введите X2:');
  readln(x2);
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=random(n);
      write(a[i],' ');
    end;
  writeln;
  writeln('Числа из промежутка:');
  for i:=1 to n do
    begin
      a[i]:=random(n);
      if (a[i]>=x1) and (a[i]<=x2) then
        begin
          inc(k);
          write(a[i],' ');
        end;
    end;
 
  writeln;
  writeln('Чисел принадлежащих отрезку: ',k);
  readln
End.

Объяснение кода листинга программы

Объявлены переменные:
- a: массив из 100 целых чисел;
- i, n, x1, x2, k: целые числа.
Пользователю предлагается ввести размерность массива.
Пользователю предлагается ввести X1.
Пользователю предлагается ввести X2.
Выводится исходный массив. Для каждого элемента массива выводится его значение.
Выводится сообщение Числа из промежутка: и затем выводится список чисел, принадлежащих промежутку от X1 до X2 (включительно).
Если список пуст, выводится сообщение В данном промежутке нет чисел.
Выводится количество чисел, принадлежащих промежутку.
Программа завершается.