Пожалуйста посчитайте пожалуйста в пакаль

Program n1;
var f:text;
a:array[1..12] of real;
x: array[1..5] of real;
n,i,temp:integer;
begin
assign(f,'input.txt');
reset(f);
n:=0;
temp:=0;
while not eof(f) do
begin
n:=n+1;
read(f,a[n]);
end;
close(f);
for i:=1 to 12 do if (i mod 2<>0) and (i<11) then
begin
temp:=temp+1;
x[temp]:=a[i];
end;
assign(f,'output.txt');
rewrite(f);
for i:=1 to 5 do if (x[i]>=a[11]) and (x[i]<=a[12]) then writeln(f,'yes')
else writeln(f,'no');
close(f);
end.