Prova i file di testo

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.