Слияние файлов Опции

[Client]

Всем привет!
У меня проблема с такой задачей:даны 2 файла упорядоченные по неубыванию, получить новый файл, упорядоченный из элементов этих двух файлов по неубыванию.
Никак не могу сделать чтоб работала для всех вариантов исходных данных...

[volvo]

Смотри:

procedure sli;
var
  a, b: integer;
  eof_a, eof_b: boolean;
begin
  reset(f2); reset(f3);

  rewrite(f4);

  eof_a := eof(f2); if not eof_a then read(f2, a); { хранишь признак конца файла ПЕРЕД чтением данных }
  eof_b := eof(f3); if not eof_b then read(f3, b);
  while (not eof_a) and (not eof_b) do begin
    if a < b then begin
      write(f4, a);
      eof_a := eof(f2); if not eof_a then read(f2, a);
    end
    else begin
      write(f4, b);
      eof_b := eof(f3); if not eof_b then read(f3, b);
    end;
  end;

  if eof_a then begin { Если закончился первый файл, то }
    write(f4, b); { <--- сбрасываешь последнее прочитанное из второго файла число }
    while not eof(f3) do begin { и потом - весь второй файл до конца... }
      read(f3, b); write(f4, b);
    end;
  end
  else begin { здесь - все наоборот }
    write(f4, a);
    while not eof(f2) do begin
      read(f2, a); write(f4, a);
    end;
  end;
  close(f4);
end;