{ File: text2.pas }

{ Scopo: secondo esempio uso file di testo }

program LeggiScriviFile;
{ Copia un file di testo in un altro file di testo.
  I nomi fisici dei file vengono letti da tastiera. }

var
  fileinput, fileoutput : text;       { file di testo }
  nomeinput, nomeoutput : string;     { nomi fisici dei file }
  ch                    : char;

begin
  write('Nome del file da cui leggere?  ');
  readln(nomeinput);
  assign(fileinput,nomeinput);       { apertura del primo file in lettura }
  reset(fileinput);                  { il file deve gia` esistere }

  write('Nome del file su cui scrivere? ');
  readln(nomeoutput);
  assign(fileoutput,nomeoutput);     { apertura del secondo file in scrittura }
  rewrite(fileoutput);               { se il file esiste gia` il precedente
                                       contenuto va` perduto }

  writeln(fileoutput,'*** QUESTA E'' LA COPIA ***');
  while not eof(fileinput) do
  begin
    read(fileinput,ch);
    write(fileoutput,ch)
  end;
  { writeln(fileinput, 'GENEREBBE ERRORE A RUN-TIME!!!'); }

  close(fileinput);                  { chiusura dei due file }
  close(fileoutput);

  writeln ('Operazione di copia terminata')
end. { LeggiScriviFile }