В файл g поместить произведение компонентов файла f и вывести на экран

Var f,g:text;
    i,n:byte;
    m,pr:real;
    ch:char;
Begin
    write('N: ');readln(n);
    Assign(f,'in.txt');Rewrite(f);
    For i:=1 to n do
    Begin
      m:=random*10-5;
      write(f,m,' ');
      write(m:6:2);
    End;
    writeln;
    Close(f);Reset(f);
    pr:=1;
    While not Eof(f) do
    Begin
      read(f,m);
      read(f,ch);
      pr:=pr*m;
    End;
    Assign(g,'out.txt');Rewrite(g);
    write(g,pr);
    Close(g);Reset(g);
    read(g,m);
    writeln('Произведение = ',m:0:2);
    Close(f);Close(g);
    readln;
End.

var
  f, g: text;
  n: integer;
  m, p: real;
begin
  Assign(f,'in.txt'); Assign(g,'out.txt');
  Write('Введите N: '); ReadLn(n);
  Rewrite(f);
  for n:=n downto 1 do WriteLn(f, Random*10-5);
  Close(f); Reset(f);
  pr:=1;
  while not EOF(f) do begin
    ReadLn(f,m); p:=p*m;
  End;
  Close(f); Rewrite(g);
  WriteLn(g, p);
  Close(g);
  WriteLn('Произведение = ',p:0:2);
  readln;
end.

  p:=1;

program prog;
type fal=text;
type far =array[1..150]of real;
var fp,fp1:text;
var m,P:real;
var i,J,n:integer;
var x:far;
var y:far;
begin
assign(fp, 'f:\files\cost\turbo\file.txt');
assign(fp1, 'f:\files\cost\turbo\file2.txt');
rewrite(fp);
writeln('how many');
read(n);
for I:=1 to n do
begin
x[i]:=random(100);
writeln(fp,x[i]);
end;
close(fp);
WRITELN('DATA IN FILE');
P:=1;
RESET(FP);
j:=1;
while not eof(fp) do begin
read(fp,y[j]);
write(y[j]);
P:=p*y[j];
J:=j+1;
end;
writeln(p:0:3);
rewrite(fp1);
writeln(fp1, p);
end.
readln;
end.