Организация цикллв и работа с одномерными массивами

[faiter_on]

Помогите пожалуйста. Задав одномерный массив целочисленных данных А в формате WORD, реализовать обработку массива, т. е. найти, сколько элементов массива A={a[i]} удовлетворяют условию: с <= a[i] <= d.
Длина массива N<=20.
Исходные данные задать самостоятельно, учитывая формат элементов массива A.

[Mad_Cat]

c:=0;for i :=1 to n do if (a[i]>=c) and (a[i]<=d) then inc(c); writeln(c);