FICHEIROS

FICHEIROS


program ficheiro_texto_1;
var f1,f2:text;
linha,nome:string;
begin
        assign(f1,'texte1.txt');
        rewrite(f1);
        write(f1,'Isto ‚ um teste com');
        writeln(f1,'um ficheiro de texto');
        writeln(f1,'Escreva mais ...');
        close(f1);
        reset(f1);
        while not eof(f1) do
        begin
                readln(f1,linha);
                writeln(linha);
        end;
        close(f1);
        writeln('Escreva um nome:');
        readln(nome);
       
        append(f1);
        writeln(f1,nome);
        close(f1);
        reset(f1);
        while not eof(f1) do
        begin
                readln(f1,linha);
                writeln(linha);
        end;
        assign(f2,'teste2.txt');
        rewrite(f2);
        reset(f1);
        while not eof(f1) do
        begin
                readln(f1,linha);
                writeln(f2,linha);
        end;
        close(f1);
        close(f2);
        reset(f2);
        while not eof(f2) do
        begin
                readln(f2,linha);
                writeln(linha);
        end;
        close(f2);
        writeln('Fim');
       
end.