Вмассиве из 10 чисел подсчитать количество элементов, больших n и меньших m (параметры m и n вводятся с клавиатуры). pascal abc

Begin 
  var n := readinteger('Введите n:'); 
  var m := readinteger('Введите m:'); 
  write(readarrinteger(10).Where(x -> (x > n) and (x < m)).count);
end.