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

import random

def EmptyFile(fname):
    open(fname, 'w').close()
    
def Write2File(fname,line):
    try:
        f = open(fname, "a")
        try:
            f.write(line)
        finally:
            f.close()
    except IOError:
        print('Write error: ',fname)

f_source = "file12_source.txt"
f_odd = "file12_odd.txt"
f_even = "file12_even.txt"
EmptyFile(f_odd)
EmptyFile(f_even)

line = ""
k = 1
try:
    with open(f_source,'r') as f:
        for line in f:
            k = int(line.strip())%2
            if k == 0:
                Write2File(f_even,line)
            else:
                Write2File(f_odd,line)
except IOError:
    print('Open error: ',f_source)
									

program File12;
var
 S:String;
 F_in,F_out1,F_out2: File of Integer;
 temp,len:integer;
begin
  Write('File In: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
  Write('File out1: ');
  Readln(S);
  Assign(F_out1,S);
  ReWrite(F_out1);
  Write('File out2: ');
  Readln(S);
  Assign(F_out2,S);
  ReWrite(F_out2);
  while not eof(F_in) do
   begin
    Read(F_in,temp);
    if (temp mod 2) = 0 then Write(F_out1,temp)
    else Write(F_out2,temp);
   end;
  Close(F_in);
  Close(F_out1);
  Close(F_out2);
end.