В файле F1 найти произведение последних пяти элементов. Полученным значением заменить каждую вторую компоненту файла. Результат вывести на экран — Pascal(Паскаль)

uses crt;
var f:file of real;
    a,p:real;
    i:integer;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл не менее 5 чисел, окончание ввода 1');
i:=0;
repeat
readln(a);
write(f,a);
i:=i+1;
until(a=1)and(i>=5);
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
writeln;
reset(f);
p:=1;
for i:=filesize(f)-5 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  p:=p*a;
 end;
close(f);
writeln;
writeln('Произведение последних 5 элементов=',p:0:2);
reset(f);
for i:=1 to filesize(f)-1 do
 if odd(i) then
  begin
   seek(f,i);
   write(f,p);
  end;
close(f);
writeln;
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.