Последовательно вводят n целых чисел. найти произведение чисел больших 8 и меньших 15

Var
 n,a,k,i:integer;
begin;
k:=1;
 readln(n);
  for i:=1 to n do
   begin;
    readln(a);
     if (a>8) and (a<15) then k:=k*a;
  end;
writeln(k);
end.