Найти корень пятой степени из произведения всех компонентов файла

uses crt;
var f:file of real;
    n,i:integer;
    a,p:real;
begin
clrscr;
randomize;
assign(f,'tol.dat');
rewrite(f);
repeat
write('Сколько чисел записать в файл, не менее 3х n=');
readln(n);
writeln;
until n>=3;
for i:=1 to n do
 begin
  a:=10*random-3;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
p:=1;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  p:=p*a;
 end;
writeln;
writeln;
writeln('Произведение компонент=',p:0:2);
if p=0 then a:=0
else if p>0 then a:=exp(ln(p)/5)
else a:=-exp(ln(-p)/5);
writeln('Корень 5 степени=',a:0:2);
writeln;
{seek(f,filesize(f)-3);}
for i:=filesize(f)-3 to filesize(f)-1 do
 begin
  seek(f,i);
  write(f,a);
 end;
seek(f,0);
writeln('Замена трех последних компонент корнем 5 степени:');
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.