Bir dosyada yer alan bilginin kopyalanarak yeni bir dosyaya yazılması program kopyala;

uses crt;
var
d1,d2:text;
r1,r2tring;

begin
assign(d1,'1.txt'); {bilgilerin okunacağı dosya değiştirilebilir}
reset(d1);
readln(d1,r1);
close(d1);
assign(d2,'2.txt'); {bilgilerin yazılacağı dosya}
rewrite(d2);
write(d2,r1);
close(d2);
end.

Not: Bilgilerin okunacağı dosya yani 1.txt ilgili dizinde yer alması gerekir. aksi halde program çalışmaz