Umiestnenie súboru www.TrSek.com/zadania/subor_sp.pas{ SUBOR_SP.PAS }
{ Program zluci prve riadky suborov FirstT.txt a SecondT.txt }
{ do suboru ResultT.txt }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program Subor_SpojenieSuborov;
uses crt;
var
Tsubor,Tsubor_1,Tsubor_2 : Text;
Cstr_Vysledny,Cstr_1,Cstr_2 : string;
begin
clrscr;
writeln('Program zluci prve riadky suborov FirstT.txt a SecondT.txt');
writeln('do suboru ResultT.txt.');
Assign(Tsubor_1,'FirstT.txt');
Reset(Tsubor_1);
while not Eof(Tsubor_1) Do
begin
Readln(Tsubor_1,Cstr_1);
end;
Assign(Tsubor_2,'SecondT.txt');
Reset(Tsubor_2);
while not Eof(Tsubor_2) Do
begin
Readln(Tsubor_2,Cstr_2);
end;