program keszletny;
uses crt;
const nmax=10;
type am=record
        nev:string;
        menny:integer;
     end;
     amtomb=array[1..nmax] of am;
var beszerzes,keszlet:amtomb;
    n,m:integer;
procedure beolvas(var n0:integer; var x:amtomb);
var i:integer;
begin
    write('Mekkora a tomb?');
    readln(n0);
    for i:=1 to n0 do
    begin
        write(i,'.aru neve');
        readln(x[i].nev);
        write(i,'.aru mennyisege');
        readln(x[i].menny);
    end;
end;
procedure aktu(n,m:integer;beszerzes:amtomb;var keszlet:amtomb);
var i,j:integer;
begin
    while (i<=n) and (j<=m)  do
    begin
        if keszlet[i].nev=beszerzes[i].nev then
        begin
            keszlet[i].menny:=keszlet[i].menny+beszerzes[j].menny;
            i:=i+1; j:=j+1;
        end
        else if keszlet[i].nev<beszerzes[j].nev then i:=i+1
             else j:=j+1;
    end;
end;
procedure kiiras(n:integer;keszlet:amtomb);
var i:integer;
begin
    for i:=1 to n do
    writeln(i,'.sor',keszlet[i].nev,keszlet[i].menny);
end;
begin
    clrscr;
    beolvas(n,keszlet);
    beolvas(m,beszerzes);
    aktu(n,m,beszerzes,keszlet);
    kiiras(n,keszlet);
    readln;
end.