Program ProvaFileTesto; Const nomefile='filetesto.txt'; Var T: Text; s : String; c : Char; Begin Assign(T, nomefile); Rewrite(T); s:='Ciao'; WriteLn(T, s); s:='mamma.'; WriteLn(T, s); Close(T); Reset(T); While Not Eof(T) Do Begin Read(T, c); // Carattere per carattere Write(c); End; Close(T); Reset(T); While Not Eof(T) Do Begin ReadLn(T, s); // Riga per riga WriteLn(s); End; Close(FT); ReadLn; End.