Задана последовательность из n вещественных чисел. Определить количество чисел, попадающих в заданный интервал. без массивов.

[Квитокс]

Помогите с задачкой. Нужно составить программу, используя оператор цикла с параметром.
Собственно, сама задача:
Задана последовательность из n вещественных чисел. Определить количество элементов последовательности, попадающих в заданный интервал [a,b](Только не используя массивы пжлуйста.)

[ZX Spectrum-128]

...
// задаем с клавиатуры эту посл-ть
...
kol:=0;
for i:=1 to n do
  begin
    readln(r);
    if (r>=a) and (r<=b) then
      kol:=kol+1;
  end;

[Квитокс]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
Var a:array[1..100] of Boolean;
i,n,x,y,r:Boolean

Begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('Vvedite n-');
read(n);
write('Vvedite a,b-');
read(x,y);
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;

end.

[Квитокс]

Подскажите, где я ошибься, что-то вообще голова не шарит

[ZX Spectrum-128]

Var
  N,kol,i:integer;
  R,a,b:real;
...
Readln(a,b); // а не x,y

[Квитокс]

Мда, благодарю