program gravarficheirostxtporcenourinha;

uses crt;



var Ficha: text;

    Letra: char;



Begin

     clrscr;

     Assign(Ficha,'\texto.txt');

     {$I-}

     rewrite(Ficha);

     {$I+}

     if IOResult=0 then

     writeln('Ficheiro nao criado!')

     else

     writeln('Ficheiro Criado com Sucesso');





     writeln('Escreva um texto e digite um ponto final para finalisar!');

       repeat

             read(letra);

             write(Ficha,letra);

       until letra='.';



       writeln;

       Writeln('O que foi escrito no ficheiro foi:');



       Reset(Ficha);

       while not eof(Ficha) do

             Begin

             read(Ficha,letra);

             write(letra);

             end;

       close(ficha);

       writeln;

       clrscr;

       writeln('Script criado por cenourinha | www.webtuga.com ');



readkey;

end.