Записать в файл G произведение компонент файла F

type TFile = file of real;
 
var f, g: TFile;
    mul, tmp: real;
    i, n: integer;
 
begin
 randomize;
 AssignFile(f, '000');
 AssignFile(g, '111');
 rewrite(f);
 readln(n);
 for i := 1 to n do
   begin
     tmp := random(20);
     write(f, tmp);
   end;
 CloseFile(f);
 rewrite(g);
 reset(f);
 mul := 1;
 while not eof(f) do
  begin
    read(f, tmp);
    mul := mul*tmp
  end;
  write(g, mul);
 CloseFile(f);
 CloseFile(g);
 write(mul:5:3);
 readln
end.

uses crt;
var f,g:file of real;
    a,p:real;
begin
clrscr;
assign(f,'chsl');
rewrite(f);
assign(g,'przv');
rewrite(g);
writeln('Введите в файл вещественные числа, окончание ввода 0:');
repeat
readln(a);
if a<>0 then write(f,a);
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
p:=1;
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
  p:=p*a;
 end;
close(f);
write(g,p);
writeln;
writeln;
writeln('Содержание полученного файла:');
reset(g);
read(g,p);
write('Произведение=',p:0:2);
close(g);
readln
end.