Прочитайте из файла f1 все числа найдите их произведение результат выведите в файл f2

Var  a,s:real;
f1,f2:text;
begin
assign(f1,'f1.txt');
reset(f1);
assign(f2,'f2.txt');
rewrite(f2);
s:=1;
while not eof(f1) do
begin
read(f1,a);
s:=s*a;
end;
write(f2,s);
close(f1);
close(f2);
end.