{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple12 ;

Uses crt, dos ;

Var f : Text ;
    nom : String ;
    choix : Char ;

Procedure Lecture ;
Begin
     Append(f) ;
     Reset(f) ;
     ReadLn(f, nom) ;
     WriteLn(nom) ;
End ;

BEGIN
     ClrScr ;
     Assign(f, 'init.txt') ;
     ReWrite(f) ;
     Write('Entrez un nom d''utilisateur : ') ;
     ReadLn(nom) ;
     nom := 'Dernier utilisateur : ' + nom ;
     WriteLn(f, nom) ;
     Close(f) ;
     Write('Voulez-vous lire le fichier init.txt ? [O/N] ') ;
     ReadLn(choix) ;
     If (choix = 'O') or (choix = 'o') then Lecture ;
END.