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

[dusya9992]

через Word
Найти, сколько элементов массива A={a[i]} удовлетворяют условию: с <= a[i] <= d

[Hacker19_90]

program fordusya9992;
uses crt;
const
      max = 10;
var
      A: array[1..max] of word;
      i: byte;
      Kol: byte;
      c, d: word;
begin
     clrscr;
     Writeln ('Введите ', max, ' значений');
     for i := 1 to max do 
         Read(A[i]);
     Readln;
     Writeln ('Введите c и d значений');
     Read (c, d);
     Readln;
     Kol := 0;
     for i := 1 to max do
     begin
         if (A[i] >= c) and (A[i] <= d) then
             Inc(Kol);
     end;
     Writeln (Kol);
     Readkey;
end.