{ File: provfile.pas }

program ProvaFile;

const
  MAXLUNGHEZZA          = 1000;
type
  TipoLunghezzaFile = 0..MAXLUNGHEZZA;

var
  lunghezza  : TipoLunghezzaFile;
  ch         : char;
  file_testo : text;


  procedure ConvertiInMaiuscole (var car: char);
  begin
    if ('a' <= car) and (car <= 'z') then     { car e' una lettera minuscola }
      car := chr(ord(car) - ord('a') + ord('A'))
  end;  { ConvertiInMaiuscole }


begin { ProvaFile }
  assign(fileTesto, 'TESTO.TXT');
  reset(fileTesto);
  lunghezza := 0;
  read(file_testo, ch);

  while ch <> '.' do      { mentre non abbiamo letto '.' }
  begin
    lunghezza := lunghezza + 1;
    ConvertiInMaiuscole(ch);
    write(ch);
    read(file_testo, ch)
  end;
  writeln;
  writeln('la frase e'' lunga', lunghezza:3, ' caratteri')
end. { ProvaFile }