Нет перегруженной программы с такими типами параметров

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.

Reset(F, 1);