Записать в файл последовательного доступа N действительных чисел. Вычислить произведение компонентов файла и вывести на печать — Pascal(Паскаль)

var
f:text;
n,i:integer;
k,p:real;
begin
  writeln('Введите колво чисел');
  readln(n);
  assign(f,'c:\aaa.txt');
  rewrite(f);
  writeln('Заполнение файла');
  for i:=1 to n do
    begin
     readln(k);
     writeln(f,k);
    end;
  close(f);
  reset(f);
  p:=1;
    while not EOF(f) do
      begin
        readln(f,k);
        p:=p*k;
      end;
  close(f);
  writeln('Произведение ',p);
end.