datoteke2

{
napisati program pomocu koga se od 2 fajla koji sadrze rastuce nizove brojeva
formira treci fajl koji sadrzi sve brojeve u rastucem poretku
}


program dat01;
type dat1= file of integer;
var n1,n2,i,j,k:integer;
f,g,h:dat1;


begin
assign(f,'prva.dat');
rewrite(f);
assign(g,'druga.dat');
rewrite(g);
assign(h,'treca.dat');
rewrite(h);

seek(f,filesize(f)-1); read(f,n1);
seek(g,filesize(g)-1); read(g,n2);
if (n1<n2)
    then write(f,n2)
    else write(g,n1);
seek(f,0);
seek(g,0);
read(f,n1); read(g,n2);
repeat
    if n1<n2
    then
        begin
         write(h,n1);
         read(f,n1);
        end
    else
        begin
        write(h,n2);
        read(g,n2);
        end;
until (eof(f)) or (eof(g));
close(f);
close(g);
seek(h,0);
repeat
    read(h,n1);
    write(n1,' ');
until(eof(h));
close(h);



readln;
end.