дан файл f компоненты которого являются действительными числами найти произведение компонентов файла

Var
  f :Text;
  x, mult: real;

begin
  mult := 1;
  assign(f, 'F');
  reset(f);
  while not Eof(f) do
  begin
    readln(f, x);
    mult := mult * x;
  end;
  Close(f);
  writeln(mult);
end.