Подсчитать в массиве количество положительных элементов меньших 8 - Pascal

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

Дано одномерный массив В с n целых чисел. Составить программу, посчитает количество положительных элементов меньших 8.

Решение задачи: «Подсчитать в массиве количество положительных элементов меньших 8»

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

const
  n = 10;
 
var
  k, i: integer;
  b: array [1..n] of integer;
 
begin
  randomize;
  k := 0;
  for i := 1 to n do
  begin
    b[i] := -n div 2 + random(n);
    write(b[i]:4);
    if (b[i] > 0) and (b[i] < 8) then 
      inc(k);
  end; 
  writeln;
  writeln(k);  
end.

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

Объявляются константа n равная 10 и переменная k типа integer.
Задается массив b типа array [1..n] of integer.
В цикле for i := 1 to n присваивается каждому элементу массива b случайное значение от -n div 2 до n div 2 и выводится на экран.
С помощью условного оператора if (b[i] > 0) and (b[i] < 8) проверяется, является ли текущий элемент положительным и меньшим 8, и если да, то к переменной k прибавляется единица.
По завершении цикла выводится на экран значение переменной k, которая содержит количество положительных элементов массива b меньших 8.