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

var

 i, c: Integer;

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

begin

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

   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] lt; 4 then

       Inc (c);

   end;

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

end;