var f1,f2:text; r:real;
begin
assign(f1,'f1.txt');
reset(f1);
assign(f2,'f2.txt');
rewrite(f2);
while not eof(f1) do
begin
read(f1,r);
writeFormat(f2,'{0:e2} ',r);
writeFormat('{0:e2} ',r);
end;
close(f1); close(f2);
DeleteFile('f1.txt');
RenameFile('f2.txt','f1.txt');
end.

Пример исходного файла f1.txt
 -3.87 -0.66 -3.45  1.65  2.92  4.67  1.76 -1.22  2.20  2.31 -0.82 -0.52  2.56  2.36 -2.95  3.80 -1.46  0.28  3.68  2.95

Измененный файл f1 (с дублированием вывода на экран):
-3.87e+000 -6.60e-001 -3.45e+000 1.65e+000 2.92e+000 4.67e+000 1.76e+000 -1.22e+000 2.20e+000 2.31e+000 -8.20e-001 -5.20e-001 2.56e+000 2.36e+000 -2.95e+000 3.80e+000 -1.46e+000 2.80e-001 3.68e+000 2.95e+000