Переписать массив во вторую половину файла - Pascal ABC

program z1;
var
  f:file of real;
  b:array[1..100] of real;
  n,i,l:integer;
  a,max:real;
begin
  write('n=');
  readln(n);
  assign(f,'f.dat');
  rewrite(f);
  for i:=1 to n do
    begin
      write('a=');
      readln(a);
      write(f,a);
    end;
  close(f);
  reset(f);
  l:=filesize(f);
  writeln('Array: ');
  for i:=1 to l div 2 do
    Read(f,b[i]);
  max:=b[1];
  for i:=1 to l do
    begin
      write(b[i]:8:2);
      if b[i]>max then
        max:=b[i];
    end;
  writeln;
  writeln('Max: ',max:8:2);
  reset(f);
  for i:=l div 2+1 to l do
    begin
      seek(f,i-1);
      write(f,max);
    end;
  close(f);
  reset(f);
  writeln('File:');
  while not eof(f) do
    begin
      read(f,a);
      write(a:8:2);
    end;
  readln;
  close(f);
end.