Napisac program pozwalający kopiować zawartość jednego pliku tekstowego znak po znaku do drugiego pliku tekstowego.

program Project3;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

pierwszy, drugi :TextFile;

znak :char;

linia :string[70];

naz_1,naz_2 :String[20];

//------------------------------------------------------------------------------

PROCEDURE Kopiuj(naz_1,naz_2:STRING);

begin

ASSIGNFILE(pierwszy, naz_1);

REWRITE(pierwszy);

Writeln(pierwszy,'nikt abc lala ala sara');

Writeln(pierwszy,'asdasd asewqcasd');

RESET(pierwszy);

ASSIGNFILE(drugi, naz_2);

REWRITE(drugi);

WHILE not Eof(pierwszy) DO

Begin

Read(pierwszy,znak);

Writeln(drugi,znak);

End;

Close(pierwszy);

Close(drugi);

Writeln('Skopiowano znak po znaku zawartosc pliku : ',naz_1,' do pliku: ',naz_2);

End;

//------------------------------------------------------------------------------

begin

Writeln(' Kopiowanie danych tekstowych znak po znaku');

Writeln(' z pliku wejsciowego i dopisanie ich');

Writeln(' na koncu tekstu pliku wyjsciowego');

Writeln;

Writeln(' Podaj nazwe pliku wejsciowego...: (.txt)');

Readln(naz_1);

Writeln(' Podaj nazwe pliku wyjsciowego...: (.txt)');

Readln(naz_2);

Kopiuj(naz_1,naz_2); //uruchomienie procedury

readln;

end.

---