Считать из 2-х типизированных файлов массивы X(N) и Y(M)

{Считать из 2-х типизированных файлов массивы X(N) и Y(M) и записать в четыре 
самых больших числа из Х, и самых маленьких из Y в новый массив D. 
Упорядочить все массивы по возрастанию и записать в текстовый файл. }
const
  n_max = 100;
 
var
  k, j, i, n, m: integer;
  f, g: file of real;
  d, x, y: array [1..n_max] of real;
  q: text;
  r: real;
 
begin
  randomize;
  //Создание файлов
  assign(f, 'f.dat');
  rewrite(f);
  write('Array X. N? ');
  readln(n);
  for i := 1 to n do
  begin
    r := -n_max div 2 + random * n_max;
    write(f, r);
  end;
  close(f);
  assign(g, 'g.dat');
  rewrite(g);
  write('Array Y. M? ');
  readln(m);
  for i := 1 to m do
  begin
    r := -n_max div 2 + random * n_max;
    write(g, r);
  end;
  close(g);
  //работа с файлами
  writeln('Array X: ');
  i := 0;
  reset(f);
  while not eof(f) do
  begin
    read(f, r);
    inc(i);
    x[i] := r;
    write(x[i]:8:2);
  end;
  close(f);
  n := i;
  writeln;
  //Sort
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if x[i] > x[j] then
      begin
        r := x[i];
        x[i] := x[j];
        x[j] := r;
      end;
  assign(q, 'out.txt');
  rewrite(q);
  writeln('Sorted array X: ');
  for i := 1 to n do
  begin
    write(x[i]:8:2);
    write(q, x[i]:8:2);
  end;    
  writeln;
  writeln(q);
  
  writeln('Array Y: ');
  i := 0;
  reset(g);
  while not eof(g) do
  begin
    read(g, r);
    inc(i);
    y[i] := r;
    write(y[i]:8:2);
  end;
  close(g);
  writeln;
  m := i;
  //Sort
  for i := 1 to m - 1 do
    for j := i + 1 to n do
      if y[i] > y[j] then
      begin
        r := y[i];
        y[i] := y[j];
        y[j] := r;
      end;
  close(q);    
  writeln('Sorted array Y: ');
  append(q);
  for i := 1 to m do
  begin
    write(y[i]:8:2);
    write(q, y[i]:8:2);
  end;
  writeln;
  writeln(q);
  writeln('Array D: ');
  k := 0;
  for i := n downto n - 4 do
  begin
    inc(k);
    d[k] := x[i];
  end;
  k := 4;
  for i := 1 to 4 do
  begin
    inc(k);
    d[k] := y[i];
  end;
  for i := 1 to 8 do
    write(d[i]:8:2);
  //Sort
  for i := 1 to 8 - 1 do
    for j := i + 1 to 8 do
      if d[i] > d[j] then
      begin
        r := d[i];
        d[i] := d[j];
        d[j] := r;
      end;
  close(q);
  writeln;
  writeln('Sorted array D: ');
  append(q);
  for i := 1 to 8 do
  begin
    write(d[i]:8:2);
    write(q, d[i]:8:2);
  end;
  close(q);
end.