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.