в массиве температура воздуха за 7 дней недели. Значение температуры вводится с клавиатуры. Сколько дней температура опускалась ниже -5°?

//pascal

var

 count : integer;

 temperature : array[1..7] of double;

 begin

   count := 0;

   for var i := 1 to 7 do

     begin

     readln(temperature[i]);

     if temperature[i] < -5 then

       count := count + 1;  

     end;

     writeln('Количество дней, когда температура была ниже -5 градусов: ', count);

 end.