Входная строка имела неверный формат

var
  f, g: text;
  i, n: integer;
  m: real;
  
begin
  write('Введите n: ');
  readln(n);
  assign(f, 'file.txt');
  rewrite(f);
  writeln(' ', 'Файл f:  ');
  for i := 1 to n do
    begin
      m := -n div 2 + random * n;
      write(m:8:3);
      write(f, m);
    end;
  writeln;
  writeln('----------------------------------------------------------------');
  close(f);
  
  assign(g, 'file_2.txt');
  reset(f);
  rewrite(g);
  for i := 1 to n do
    begin
      while not (eof(f)) do
        begin
          read(f, m); //тут
          if m > 0 then
            begin
              write(m:8:3);
              write(g, m);
            end;
        end;
    end;
    writeln;
    reset(g);
  writeln('Файл g: ');
  while not (eof(g)) do
    begin
      read(g, m);
      write(m:8:3);
    end;
  writeln;
  writeln('----------------------------------------------------------------');
  close(f);
  close(g);
  end.