Дан одномерный массив.найти сумму элементов массива,значение которых падает в отрезок [2; 5] (массив предварительно заполнить с клавиатуры)

Program mm;

var a: array [1..10] of real; i: integer; s: real;

begin

for i:=1 to 10 do begin

    Writeln("Введите элемент номер ",i); read(a[i]);

                         end;

for i:=1 to 10 do

  if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];

Writeln(s); readln;

end.

Если что, пиши в личку.