ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ОЧЕНЬ СРОЧНО!!!!
Значения вектора {xi}, i = 1,...,20 вводятся из текстового файла. Требуется подсчитать количество его элементов, значения которых лежат в интервале [0,1].

Const n=20;
var f1:text;
 x:array[1..n] of real; i,k:integer;
begin
assign(f1,f1.txt);
reset(f1);
i:=0; k:=0;
while not eof(f1) do
begin
i:=i+1;
read(f1,x[i]);
if (x[i]gt;=0)and(x[i]lt;=1) then k:=k+1;
end;
close(f1);
writeln(k = ,k);
end.

Пример (для i=1, ..., 10):
Файл f1.txt:
 0.56
 1.62
-0.27
 1.44
-1.47
 0.74
-1.82
-1.80
-1.76
 0.72

Результат работы программы:
k = 3