metin dosyasının diğerine kopyalanması program ornek;
var
d1,d2:TEXT;
a:char;
begin
ASSIGN(d1,'c:\ornek.txt');
ASSIGN(d2,'C:\odev.txt');
Reset(d1);
while not eof(d1) do
begin
read(d1,a)
write(d2,a);
end;
close(d1);
close(d2);
end.