{ File: text1.pas }

{ Scopo: primo esempio di uso file di testo }

program LeggiFile;
{ Legge un file di testo e conta di quanti caratteri e' composto. }

var
  fileinput : text;     { file di testo }
  ch        : char;     { carattere letto }
  quanti    : integer;  { numero di caratteri nel file }

begin
  assign(fileinput, 'INPUT.TXT');     { apertura del file in lettura }
  reset(fileinput);                   { se il file non esiste si ha un
                                        ERRORE a RUN TIME }

  quanti := 0;
  while not eof(fileinput) do
  begin
    read(fileinput, ch);
    write(ch);
    quanti := quanti + 1
  end;
  writeln ('Il file INPUT.TXT e'' composto di ', quanti, ' caratteri');

  close(fileinput)                    { chiusura del file }
end. { LeggiFile }