Programa sobre Ficheiros de texto

Program ficheiro_texto_1;
 varN1, N2 :text;
 linha, nome : String[30];
 
Begin
   Assign (N1, 'teste1.txt');  Rewrite(N1);
 Writeln(N1, 'Isto ‚ um teste com');
 Writeln (N1, 'um ficheiro de texto');
 Writeln(N1, 'escreva mais ...');
 Close (N1);
 Reset(N1);
  While not Eof (N1) do
     Begin
       Readln(N1, linha);
       Writeln(linha);    End;
 Close(N1);
 Writeln('escreva um nome de pessoa');
 Readln(nome);
  Append(N1);
  Writeln(f1,nome);
  Close(N1);
  Reset(N1);
  Writeln('conteudo de N1');
  While not Eof (N1) do
    Begin
      Readln(N1,nome);
      Writeln(nome);
    End;
 Close(N1);
  Assign(N2,'texte2.txt');
  Rewrite(N2);
  Reset (N1);
  While not Eof (N1) do
   Begin
    Readln(N1, linha);
    Writeln(N2, linha);
   End;
 Close(N1);
 Close(N2);
 Reset(N2);
 Writeln('conteudo de N2');
 While Not Eof (N2) Do
  Begin
    Readln (f2, linha);
    Writeln(linha);
   End;
 Close(f2);
 Writeln('fim');Readln();
End.