Блок схема и код

Задана последовательность из n вещественных чисел. Определить сумму положительных элементов последовательности, не попадающих в заданный интервал [a, b.) Блок-схема.
VAR
N,kol,i:integer;
R,a,b:real;
begin
Write('Vvedite n-');
readln(n);
write('Vvedite a,b-');
Readln(a,b);
Writeln('Vvedite n 4isel');
kol:=0;
for i:=1 to n do
begin
readln(r);
if (r>=a) and (r<=b) then
kol:=kol+1;
End;
readln;
end.
Где ошибка в коде?и как правильно проверить последовательность?запутался