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

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

lst_file = ["file49_1.txt", "file49_2.txt", "file49_3.txt", "file49_4.txt"]
f_output = "file49_all.txt"

try:
    f_in = []
    for f_input in lst_file:
        f_in.append(open(f_input, "r"))

    flag = True
    with open(f_output, "w") as f_out:
        while flag:
            for f in f_in:
                line = f.readline()
                if not line:
                    flag = False
                    break
                print(line)
                f_out.write(line.strip()+"\n")

    for f in f_in:
        f.close()
        
except:
    print("Error: ", sys.exc_info())
									

program File49;
var
 SA,SB,SC,SD,SE: String;
 FA,FB,FC,FD,FE :File of Integer;
 El:Integer;
begin
  Write('SA: ');
  Readln(SA);
  Write('SB: ');
  Readln(SB);
  Write('SC: ');
  Readln(SC);
  Write('SD: ');
  Readln(SD);
  Write('SE: ');
  Readln(SE);
  Assign(FA,SA);
  Reset(FA);
  Assign(FB,SB);
  Reset(FB);
  Assign(FC,SC);
  Reset(FC);
  Assign(FD,SD);
  Reset(FD);
  Assign(FE,SE);
  Rewrite(FE);
  while (not Eof(FA)) and (not Eof(FB)) and (not Eof(FC)) and (not Eof(FD)) do
   begin
    Read(FA,El);
    Write(FE,El);
    Read(FB,El);
    Write(FE,El);
    Read(FC,El);
    Write(FE,El);
    Read(FD,El);
    Write(FE,El);
   end;
  Close(FA);
  Close(FB);
  Close(FC);
  Close(FD);
  Close(FE);
end.