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

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

lst_file = ["file46_1.txt", "file46_2.txt", "file46_3.txt", "file46_4.txt"]
f_output = "file46_all.bin"
try:
    with open(f_output, "ab") as f_out:
        for f_input in lst_file:
            with open(f_input, "rb") as f_in:
                f_out.write(f_in.read())
                
except:
    print("Error: ", sys.exc_info())
									

program File46;
var
 N,i:Integer;
 Buf : Char;
 S: String;
 F,F2 :File;
begin
  Write('S0: ');
  Readln(S);
  Assign(F,S);
  Rewrite(F,1);
  Write('N: ');
  Readln(N);
  For i:=1 to N do
   begin
    Write('S: ');
    Readln(S);
    Assign(F2,S);
    Reset(F2,1);
    while not Eof(F2) do
     begin
      BlockRead(F2, Buf, SizeOf(char));
      BlockWrite(F, Buf, sizeof(char));
     end;
    Close(F2);
   end;
  Close(F);
end.