谁有NOIP测试题(贪婪的礼物者)的答案(Pascal)语言

program gifttofriend;
type
fname=array[1..10] of string;
geren=record
name:string;
money:integer;
friend:record
num:integer;
name:fname;
end;
pay:integer;
given:integer;
end;
var
num:integer;
people,p:array[1..10] of geren;
i,j,k,sum:integer;
procedure data;
begin
readln(num);
for i:=1 to num do
readln(people[i].name);
p:=people;
for i:=1 to num do
begin
readln(people[i].name);
readln(people[i].money,people[i].friend.num);
for j:=1 to people[i].friend.num do
readln(people[i].friend.name[j]);
end;
end;
procedure calculation;
begin
for i:=1 to num do
if (people[i].friend.num<>0) and (people[i].money<>0) then
people[i].pay:=(people[i].money div