Помогите решить задачу по паскалю, пожалуйста.
Прочитать с экрана 10 целых чисел. Сосчитать сколько среди них меньше 4. Результат напечатать.

var

 i, c: Integer;

 A: array [1..10] of Integer;

begin

   Writeln ('Введите десять целых чисел:');

   for i := 1 to 10 do begin

     Write ('Введите ' + IntToStr (i) + '-е число: ');

     ReadLn (A [i]);

   end;

   c := 0;

   for i := 1 to 10 do begin

     if A [i] < 4 then

       Inc (c);

   end;

   WriteLn ('Количество чисел меньше четырех = ' + IntToStr (c));

end;