Обмен компонентами между файлами

uses crt;
type fail=file of real;
procedure WriteFile(var f:fail;name:string);
var r:real;
    c:char;
begin
assign(f,name);
rewrite(f);
writeln('Введите в файл ',name,' действительные числа, окончание ввода 0:');
repeat
write('r=');
readln(r);
if r<>0 then write(f,r);
until r=0;
clrscr;
close(f);
end;
procedure ReadFile(var f:fail;name:string);
var r:real;
begin
writeln(' Файл ',name);
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(r:0:2,' ');
 end;
writeln;
close(f);
end;
procedure CopyFile(var f,g:fail);
var r:real;
begin
reset(f);
rewrite(g);
while not eof(f) do
 begin
  read(f,r);
  write(g,r);
 end;
close(g);
close(f);
end;
var f1,f2,f3,f4,f5,h:fail;
begin
clrscr;
assign(h,'FileH');
WriteFile(f1,'File1');
WriteFile(f2,'File2');
WriteFile(f3,'File3');
WriteFile(f4,'File4');
WriteFile(f5,'File5');
writeln('Содержание исходных файлов:');
ReadFile(f1,'File1');
ReadFile(f2,'File2');
ReadFile(f3,'File3');
ReadFile(f4,'File4');
ReadFile(f5,'File5');
CopyFile(f5,h);
CopyFile(f3,f5);
CopyFile(f1,f3);
CopyFile(h,f1);
CopyFile(f4,h);
CopyFile(f2,f4);
CopyFile(h,f2);
writeln('Содержание измененных файлов:');
ReadFile(f1,'File1');
ReadFile(f2,'File2');
ReadFile(f3,'File3');
ReadFile(f4,'File4');
ReadFile(f5,'File5');
erase(h);
readln
end.