Вывести на экран дисплея номера элементов массива, удовлетворяющих условию 0

Var i,n:integer;x:array[1..100] of integer;
begin 
readln(n);
for i:=1 to n do 
readln(x[i]);
fvor i:=1 to n do
if (x[i]>0) and (x[i]<3.2)  then writeln(i);
end.