ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ОЧЕНЬ СРОЧНО!!!! Значения вектора {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]>=0)and(x[i]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