【USACO题库】1.1.2 Greedy Gift Givers贪婪的礼物送礼者

题目描述
对于一群要互送礼物的朋友，你要确定每个人送出的礼物比收到的多多少(and vice versa for those who view gift giving with cynicism)。
在这一个问题中，每个人都准备了一些钱来送礼物，而这些钱将会被平均分给那些将收到他的礼物的人。
然而，在任何一群朋友中，有些人将送出较多的礼物(可能是因为有较多的朋友)，有些人有准备了较多的钱。
给出一群朋友， 没有人的名字会长于 14 字符，给出每个人将花在送礼上的钱，和将收到他的礼物的人的列表，
请确定每个人收到的比送出的钱多的数目。
测试系统是 Linux 符合标准的 Unix 的协定。
用'\n'作为行的结束。
这和　Windows 系统用'\n' 和 '\r'作为行的结束是不同的。
你的程序不要被这困住了。

输入
第 1 行:
人数NP,2<= NP<=10

第 2到 NP+1 行:
这NP个在组里人的名字　一个名字一行
第NP＋2到最后：

这里的NP段内容是这样组织的：
第一行是将会送出礼物人的名字。
第二行包含二个数字:　第一个是原有的钱的数目（在0到2000的范围里），第二个NGi是将收到这个送礼者礼物的人的个数 如果 NGi 是非零的, 在下面 NGi 行列出礼物的接受者的名字，一个名字一行。

输出
输出 NP 行
每行是一个的名字加上空格再加上收到的比送出的钱多的数目。
对于每一个人，他名字的打印顺序应和他在输入的2到NP＋1行中输入的顺序相同。所有的送礼的钱都是整数。
每个人把相同数目的钱给每位要送礼的朋友，而且尽可能多给，不能给出的钱被送礼者自己保留。

样例输入
5
dave
laura
owen
vick
amr
dave
200 3
laura
owen
vick
owen
500 1
dave
amr
150 2
vick
owen
laura
0 2
amr
vick
vick
0 0

样例输出
dave 302
laura 66
owen -359
vick 141

amr -150

这题看起来觉得很难，但其实只要多看几次，就会发现其实水的不能再水。

不少人看到字符串都是一脸懵逼，但其实我们只要用一个函数getid(name)来把字符串转成编号，再一边读入一边计算就过了。

这是函数的代码：

function getid(name:string):longint;
var
        i:longint;
begin
        for i:=1 to n do
        if name=a[i] then
        exit(i);
end;