Найти максимальную компоненту файла - PascalABC.NET

var max, buff: real;
begin
  var F, H: file of real;
  max := -MaxReal;
  var counter := 0;
  assign(F, 'f.dat');
  assign(H, 'h.dat');
  rewrite(F);
  for var i := 1 to 10 do begin
    buff := Random * 20;
    if buff > max then max := buff;
    write(F, buff);
    write(buff, ' ');
  end;
  writeln(max);
  close(F);
  reset(F);
  rewrite(H);
  while not eof(F) do begin
    read(F, buff);
    inc(counter);
    if not odd(counter) then write(H, buff);
  end;
  close(F);
  close(H);
  reset(H);
  while not eof(H) do begin
    read(H, buff);
    write(buff, ' ');
  end;
  close(H);
end.