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

import random

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

f_source = "file11_source.txt"
f_odd = "file11_odd.txt"
f_even = "file11_even.txt"
line = ""
k = 1
try:
    with open(f_source,'r') as f:
        for line in f:
            k *= (-1)
            if k == -1:
                Write2File(f_odd,line)
            else:
                Write2File(f_even,line)
except IOError:
    print('Open error: ',f_source)
									

program File11;
var
 S:String;
 F_in,F_out1,F_out2: File of Integer;
 i,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);
  i:=1;
  while not eof(F_in) do
   begin
    Read(F_in,temp);
    if (i mod 2) <> 0 then Write(F_out1,temp)
    else Write(F_out2,temp);
    inc(i);
   end;
  Close(F_in);
  Close(F_out1);
  Close(F_out2);
end.