program PascalGuru;
 
type faily=record
                cislo:integer;
          end;
 
var t,t2,t3:faily;
    f,g,s,r:file of faily;
    fn,gn:integer;
 
 
begin
assign(f,'f.txt');
assign(g,'g.txt');
 
reset(f);
while not eof(f) do
      begin
      read(f,t);
      inc(fn);
      end;
 
reset(g);
while not eof(g) do
      begin
      read(g,t);
      inc(gn);
      end;
 
if fn <> gn then
                begin
                 writeln('Chislo komponentov faila "f" i "g" ne sovpadaet...');
                 readln;
                 close(f);close(g);
                 halt;
                end;
 
 
assign(s,'s.txt');
assign(r,'r.txt');
rewrite(s); rewrite(r);
 
reset(f); reset(g);
while not eof(f) do
      begin
       read(f,t);
       read(g,t2);
 
       t3.cislo:=t.cislo+t2.cislo;
       write(s,t3);  {записываем сумму}
 
       t3.cislo:=t.cislo-t2.cislo;
       write(r,t3);  {записываем разность}
      end;
 
writeln('Faily "s" i "r" uspeshno zapisany...');
 
close(f);close(g);
close(s);close(r);
readln;
end.