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

# -*- coding: utf-8 -*-
import random
import sys
import os
from shutil import copyfile

file1 = "file45_1.txt"
file2 = "file45_2.txt"
file3 = "file45_3.txt"

try:
    size1 = os.stat(file1).st_size
    size2 = os.stat(file2).st_size
    size3 = os.stat(file3).st_size

    min_size = size1
    min_file = file1
    max_size = size1
    max_file = file1

    if size2 < min_size:
        min_size = size2
        min_file = file2
    
    if size3 < min_size:
        min_size = size3
        min_file = file3

    if size2 > max_size:
        max_size = size2
        max_file = file2
    
    if size3 > max_size:
        max_size = size3
        max_file = file3

    print("min size: ", min_size)
    print("min file: ", min_file)
    print("max size: ", max_size)
    print("max file: ", max_file)
    ## copyfile(source, destination)
    copyfile(max_file, min_file)

except:
    print("Error: ", sys.exc_info())
									

program File45;
var
 Name1,Name2,Name3:String;
 F1,F2,F3: File;
 FS1,FS2,FS3 : longint;
procedure ReplaceFile(NameOld,NameNew:String);
var
 F,F_R :File;
 Buf : Char;
begin
  Assign(F,NameOld);
  Reset(F, 1);
  Assign(F_R,NameNew);
  Rewrite(F_R,1);
  while not Eof(f) do
   begin
    BlockRead(F, Buf, SizeOf(char));
    BlockWrite(F_R, Buf, sizeof(char));
   end;
  Close(F);
  Close(F_R);
end;
begin
  Write('File1: ');
  Readln(Name1);
  Assign(F1,Name1);
  Reset(F1);
  Write('File2: ');
  Readln(Name2);
  Assign(F2,Name2);
  Reset(F2);
  Write('File3: ');
  Readln(Name3);
  Assign(F3,Name3);
  Reset(F3);
  FS1:=filesize(F1);
  FS2:=filesize(F2);
  FS3:=filesize(F3);
  Close(F1);
  Close(F2);
  Close(F3);
  if ((FS2<=FS1) and (FS1<=FS3)) or ((FS2>=FS1) and (FS1>=FS3)) then
   if FS2>FS3 then ReplaceFile(Name2,Name3)
    else ReplaceFile(Name3,Name2);
  if ((FS1<=FS2) and (FS2<=FS3)) or ((FS1>=FS2) and (FS2>=FS3)) then
   if FS1>FS3 then ReplaceFile(Name1,Name3)
    else ReplaceFile(Name3,Name1);
  if ((FS1<=FS3) and (FS3<=FS2)) or ((FS1>=FS2) and (FS2>=FS3)) then
   if FS1>FS2 then ReplaceFile(Name1,Name2)
    else ReplaceFile(Name2,Name1);
end.