Решение задачи File 50

# -*- coding: utf-8 -*-
import random
import sys

def GenerateNumbers(fname):
    N = random.randrange(1,5)
    numbers = random.sample(range(1, 100), N)
    numbers.sort()
    print(numbers)
    try:
        f = open(fname, "w")
        for x in numbers:
            line = str(x)+"\n"
            f.write(line)
        f.close()
    except:
        print("Error: ", sys.exc_info()[0])

try:
    file1 = "file50_1.txt"
    file2 = "file50_2.txt"
    f_output = "file50_all.txt"

    GenerateNumbers(file1)
    GenerateNumbers(file2)

    with open(file1, 'r') as f1, \
         open(file2, 'r') as f2, \
         open(f_output, 'w') as f_out:

        line1 = f1.readline()
        x1 = int(line1)
        line2 = f2.readline()
        x2 = int(line2)

        print("while start")
        while True:
            if x1 < x2:
                print("x1 < x2")
                f_out.write(line1)
                line1 = f1.readline()
                if line1:
                    x1 = int(line1)
                else:
                    f_out.write(line2)
                    break
            else:
                print("x1 >= x2")
                f_out.write(line2)
                line2 = f2.readline()
                if line2:
                    x2 = int(line2)
                else:
                    f_out.write(line1)
                    break
        print("while end")

        if line1:
            while line1:
                line1 = f1.readline()
                if line1:
                    f_out.write(line1)
                    
        if line2:
            while line2:
                line2 = f2.readline()
                if line2:
                    f_out.write(line2)

except Exception as e:
    print("Error: ", sys.exc_info())
    exc_type, exc_obj, exc_tb = sys.exc_info()
    print(exc_type, exc_tb.tb_lineno)
									

program File50;
var
 S1,S2,S3: String;
 F1,F2,F3: File of Real;
 El1,El2:Real;
begin
  Write('S1: ');
  Readln(S1);
  Write('S2: ');
  Readln(S2);
  Write('S3: ');
  Readln(S3);
  Assign(F1,S1);
  Assign(F2,S2);
  Assign(F3,S3);
  Reset(F1);
  Reset(F2);
  ReWrite(F3);
  Read(F1,El1);
  Read(F2,El2);
  while true do
   begin
    if El1<El2 then
     begin
      Write(F3,El1);
      if not (eof(F1)) then Read(F1,El1)
      else
       begin
        Write(F3,El2);
        break;
       end;
     end
    else
     begin
      Write(F3,El2);
      if not(eof(F2)) then Read(F2,El2)
      else
       begin
        Write(F3,El1);
        break;
       end;
     end;
   end;
  if not (Eof(F2)) then
   begin
    while not(eof(F2)) do
     begin
      Read(F2,El2);
      Write(F3,El2);
     end;
   end;
  if not (Eof(F1)) then
   begin
    while not(eof(F1)) do
     begin
      Read(F1,El1);
      Write(F3,El1);
     end;
   end;
  Close(F1);
  Close(F2);
  Close(F3);
  Readln;
end.