Создать два файла вещественных чисел. Подсчитать количество компонент в них. Получить результирующий файл

var
  q, f, g: file of real;
  x: real;
  i, n: integer;
 
begin
  assign(q, 'file3.dat');
  assign(f, 'file1.dat');
  rewrite(f);
  write('Введите количество чисел в файле: ');
  readln(n);
  writeln('Введите в файл числа:');
  for i := 1 to n do
  begin
    readln(x);
    write(f, x);
  end;
  writeln('Содержание исходного файла F:');
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    write(x, ' ');
  end;
  close(f);
  writeln;
  
  assign(g, 'file2.dat');
  rewrite(g);
  write('Введите количество чисел в файле: ');
  readln(n);
  writeln('Введите в файл числа:');
  for i := 1 to n do
  begin
    readln(x);
    write(g, x);
  end;
  writeln('Содержание исходного файла G:');
  reset(g);
  while not eof(g) do
  begin
    read(g, x);
    write(x, ' ');
  end;
  close(g);
  writeln;
  
  reset(f);
  reset(g);
  if filesize(f) < filesize(g) then
  begin
    rewrite(q);
    writeln('Содержание файла Q:');
    while not eof(f) do
    begin
      read(f, x);
      write(q, x);
      write(x, ' ');
    end;
    close(f);
  end
  else
  begin
    rewrite(q);
    writeln('Содержание файла Q:');
    while not eof(g) do
    begin
      read(g, x);
      write(q, x);
      write(x, ' ');
    end;
    close(g);
  end;
end.