Подсчитать количество элементов массива, значение которых находится в диапазоне [A, B]

const
  n = 10;
 
var
  i, count: integer;
  x: array [1..n] of real;
  a, b: real;
 
begin
  Write('Введите A = ');ReadLn(a);
  Write('Введите B = ');ReadLn(b);    
  i := 1;
  count := 0;
  for i := 1 to n do
    readln(x[i]);
  for i := 1 to n do
    if (x[i] >= a) and (x[i] <= b) then
    begin
      WriteLn(x[i], ' ', i);
      Inc(count);
    end;
  Write('Количество: ', count);
end.

begin
  var a:= ReadInteger('Введите минимальное значение');
  var b:= ReadInteger('Введите минимальное значение');
  var arr: array of integer:= ArrRandomInteger(ReadInteger('Введите n'),ReadInteger('Введите минимальное значение диапазона генерации'),ReadInteger('Введите максимальное значение диапазона генерации')).Println('; ').Where(x -> x in [a..b]).ToArray;
  Writeln('Количество элементов в диапазоне от ', a, ' до ', b, ' = ', arr.Length);
end.

begin
  var arr:array of integer:= new integer[10](1,2,3,4,5,6,7,8,9,10);
  var a:= ReadInteger('Введите минимальное значение');
  var b:= ReadInteger('Введите минимальное значение');
  Writeln('Количество элементов в диапазоне от ', a, ' до ', b, ' = ', arr.Println('; ').Where(x -> x in [a..b]).Count);
end.