Так ли должна работать программа?

const n=10; // допустим заполним до 10 чисел.
var p: real; f: file of real; // типизированный файл
    i: integer;
begin
assign(f,'1.dat');
rewrite(f);
p:=1;
for i:=1 to n do begin
p:=p*random(n); //вот здесь должно начаться произведение компонентов
write(f,p);
end;
close(f);
end.

const
  n = 10;// допустим заполним до 10 чисел.
 
var
  x, p: real;
  f: text;
  i: integer;
 
begin
  randomize;
  assign(f, '1.txt');
  rewrite(f);
  for i := 1 to n do 
  begin
    p := random * n; 
    writeln(f, p);
  end;
  close(f);
  reset(f);
  p := 1;
  while not eof(f) do
  begin
    readln(f, x);
    p := p * x;//вот здесь должно начаться произведение компонентов
  end;
  close(f);
  writeln(p);
end.

const n=10; // допустим заполним до 10 чисел.
var x,p: real;
    f: file of real; // типизированный файл
    i: integer;
begin
assign(f,'1.dat');
rewrite(f);
p:=1;
for i:=1 to n do
 begin
  x:=5*random;
  write(f,x);
end;
writeln('Содержание файла');
reset(f);
p:=1;
while not eof(f) do
 begin
  read(f,x);
  write(x:5:2);
  p:=p*x;
 end;
close(f);
writeln;
write('Произведение=',p:0:2);
end.