Найти, сколько элементов массива удовлетворяют условию - PascalABC.NET

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

Задав одномерный массив целочисленных данных А в одном из заданных форматов (BYTE, WORD, SHORTINT, INTEGER или LONGINT), реализовать обработку массива, как указано в варианте. Длина массива N<=20. Исходные данные задать самостоятельно, учитывая формат элементов массива A. В МОЕМ СЛУЧАЕ WORD; Найти, сколько элементов массива A={a[i]} удовлетворяют условию: с <= a[i] <= d. выдает ошибку, что <= - не применяется к типам булеан и риал, если менять тип то сообщение меняется аналогично

var
a: array[1..20] of word;
i:byte;
c,d,k:real;
begin
writeln (c,d);
readln(c,d);
randomize;
for i:=1 to 20 do
begin 
a[i]:=random(40);
end;
k:=0;
for i:=1 to 20 do begin
if (c<=a[i]<=d) then k:=k+1;
writeln('кол-во = ', k);
end;
end.

Решение задачи: «Найти, сколько элементов массива удовлетворяют условию»

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

var a:array[1..20] of word;
    i,c,d,k:word;
begin
randomize;
writeln('Массив');
for i:=1 to 20 do
 begin
  a[i]:=random(40);
  write(a[i]:4);
 end;
writeln;
repeat
writeln('Введите 2 целых числа c<d');
readln(c,d);
until c<d;
k:=0;
for i:=1 to 20 do
if (c<=a[i])and(a[i]<=d) then k:=k+1;
writeln('кол-во = ', k);
end.

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

Объявляется массив a размером 20 элементов типа word.
Объявляются переменные i, c, d, k типа word.
Задается начальное значение для генератора случайных чисел.
Выводится размер массива.
Каждый элемент массива заполняется случайным числом от 0 до 39.
Четыре последние цифры каждого элемента выводятся на экран.
Вводится диапазон чисел c и d.
Переменная k инициализируется нулем.
Производится проверка каждого элемента массива на соответствие заданному диапазону.
Если элемент удовлетворяет условию, то к переменной k прибавляется единица.
Выводится количество элементов, удовлетворяющих условию.