В файле F1 найти произведение последних пяти элементов

program x5sem;
var b,i,p:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца ввода: "555")');
rewrite(f);
readLn(b);
i:=1; 
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
reset(f);
while not EOF(f) do
begin
read(f,b);
p:=1;
for i:=filesize(f)-5 to filesize(f)-1 do
begin
seek(f,i);
read(f,b);
p:=p*b;
end;
close(f);
writeln;
writeln('Произведение последних 5 элементов=',p:2);
reset(f);
if (i mod 2 = 1) then
i:=p else
i:=(i)/2;
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,b);
write(b:2,' ');
end;
close(f);
readln
end;
end.

program x5sem;
var
  b,i,p:integer;
  f:file of integer;
begin
  assign(f,'f.dat');
  writeLn('введите первую компоненту файла f (признак конца ввода: "555")');
  rewrite(f);
  readLn(b);
  i:=1;
  while b<>555 do
    begin
      write(f,b);
      inc(i);
      writeLn('введите ',i,'-ую компоненту файла f');
      readLn(b);
    end;
  reset(f);
  writeLn('файл f до изменения:');
  while not EOF(f) do
    begin
      read(f,b);
      write(b:5);
    end;
  writeLn;
  reset(f);
  while not EOF(f) do
    begin
      read(f,b);
      p:=1;
      for i:=filesize(f)-5 to filesize(f)-1 do
        begin
          seek(f,i);
          read(f,b);
          p:=p*b;
        end;
    end;
  close(f);
  writeln;
  writeln('Произведение последних 5 элементов=',p:6);
  reset(f);
  for i:=0 to filesize(f)-1 do
    begin
      seek(f,i);
      read(f,b);
      if odd(i) then
        begin
          seek(f,i);
          write(f,p);
        end
      else
        begin
          seek(f,i);
          write(f,b div 2);
        end;
    end;
  close(f);
  writeln;
  writeln('Содержание измененного файла:');
  reset(f);
  while not eof(f) do
    begin
      read(f,b);
      write(b:6);
    end;
  close(f);
  readln
end.