Bir dosyada yer alan bilginin kopyalanarak yeni bir dosyaya yazılması Kod: program kopyala; uses crt; var d1,d2:text; r1,r2:string; 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