Файлы, Числа по возрастанию Опции

[Anastacia Adesso]

Вы наверное сейчас посмеётесь..
Это самый идиотский способ делать программу..
Тем более не компилируется

Надо читать два файла, где числа по возрастанию расположены и отделены запятой.
И в третий файл объединить оба чтоб числа опять же были в возрастающеё последовательности..

Не знаю как сделать просто..
 UZD1.PAS ( 798 байт ) Кол-во скачиваний: 431

[klem4]

Запятая обязательно ? Если да, то можно ли ичпользовать строки или еще что-нибудь? Вот если зазделены пробелом то вот так:

uses crt;

var
  f1, f2, f3: Text;

  a, b: Integer;

  _eof, null_a, null_b: Boolean;
begin

  assign(f1, 'C:\f1.txt'); reset(f1);
  assign(f2, 'C:\f2.txt'); reset(f2);
  assign(f3, 'C:\f3.txt'); rewrite(f3);

  read(f1, a);
  read(f2, b);

  _eof := false;

  null_a := false;
  null_b := false;

  repeat

    if a <= b then begin
      write(f3, a, ' '); null_a := true;

      if not(eof(f1)) then begin
        read(f1, a);
        null_a := false;
      end
       else _eof := true;
    end
     else begin
       write(f3, b, ' '); null_b := true;
       if not(eof(f2)) then begin
         read(f2, b);
         null_b := false;
       end
        else _eof := true;
     end;

  until _eof;

  if not(null_a) then write(f3, a, ' ');
  if not(null_b) then write(f3, b, ' ');

  if not(eof(f1)) then begin

    while not(eof(f1)) do begin
      read(f1, a);
      write(f3, a, ' ');
    end;

  end else while not(eof(f2)) do begin
    read(f2, b);
    write(f3, b, ' ');
  end;

  close(f1);
  close(f2);
  close(f3);

end.

Тестовый файлы в аттаче