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 := chr(ord(car) - ord('a') + ord('A'))
end;
begin
assign(fileTesto, 'TESTO.TXT');
reset(fileTesto);
lunghezza := 0;
read(file_testo, ch);
while ch <> '.' do
begin
lunghezza := lunghezza + 1;
ConvertiInMaiuscole(ch);
write(ch);
read(file_testo, ch)
end;
writeln;
writeln('la frase e'' lunga', lunghezza:3, ' caratteri')
end.