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

Задана последовательность из n вещественных чисел. Определить сумму положительных элементов последовательности, не попадающих в заданный интервал [a, b.) Блок-схема
VA
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 d
begi
readln(r)
if (r>=a) and (r<=b) the
kol:=kol+1
End
readln
end.
Где ошибка в коде?и как правильно проверить последовательность?запутался