var
f1,f2,f3: text;
s: string;
i: integer;
begin
assign(f1,'file1.txt');
reset(f1);
assign(f2,'file2.txt');
reset(f2);
assign(f3,'file3.txt');
rewrite(f3);
while not eof(f1) and not eof(f2) do
begin
readln(f1,s);
s.Split(' ');
readln(f2,i);
writeln(f3,s,' ',i);
end;
close(f1);
close(f2);
close(f3);
end.
пусто.