program LeggiScriviFile;
var
fileinput, fileoutput : text;
nomeinput, nomeoutput : string;
ch : char;
begin
write('Nome del file da cui leggere? ');
readln(nomeinput);
assign(fileinput,nomeinput);
reset(fileinput);
write('Nome del file su cui scrivere? ');
readln(nomeoutput);
assign(fileoutput,nomeoutput);
rewrite(fileoutput);
writeln(fileoutput,'*** QUESTA E'' LA COPIA ***');
while not eof(fileinput) do
begin
read(fileinput,ch);
write(fileoutput,ch)
end;
close(fileinput);
close(fileoutput);
writeln ('Operazione di copia terminata')
end.