Localize file www.TrSek.com/zadania/pumpsub.pas{ PUMPSUB.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Su dane dva textove subory f1 a f2. Zapiste prvky suboru f1 zo }
{ zachovanim poradia hodnot do suboru f2 na koniec a prvky suboru }
{ f2 na koniec suboru f1. Je mozne pouzit pomocny subor. }
{ }
{ Datum:23.05.2004 http://www.trsek.com }
program pump_file;
var f:text;
meno1,meno2,meno3:string;
{ procedura na koniec suboru meno2 pripoji subor meno1 }
procedure Pripoj(meno1,meno2:string);
var slovo:string;
f,g:text;
begin
Assign(f,meno1);
Assign(g,meno2);
ReSet(f);
Append(g);
{ presun sa na koniec }
while(not(Eof(f))) do
begin
ReadLn(f,slovo);
WriteLn(g,slovo);
end;
{ zavrieme }
Close(f);
Close(g);
end;
begin
WriteLn('Pripojim subor 1 na koniec suboru 2 a naopak.');
Write('Zadaj meno prveho suboru:'); ReadLn(meno1);
Write('Zadaj meno druheho suboru:'); ReadLn(meno2);
{ nazov tmp suboru }
meno3:='tmp.$$$';