大家帮我看看这程序有什么问题吗？（gift） [复制链接]

var name:array[1..10] of string;
  givename:array[1..10] of string;
  save,osave:array[1..10]of integer;
  i,j,k,l,a,b,n:integer;
  fin,fout:text;
  c:integer;
begin
  assign(fin,'gift1.in');reset(fin);
  readln(fin,n);
  for i:=1 to n do
    readln(fin,name);
  for i:=1 to n do
    begin
    c:=0;
    readln(fin);
    readln(fin,a,b);
      osave:=osave+a;
    if b>0 then
    begin
      c:=a div b;
    save[n]:=save[n]-a;
      for k:=1 to b do
      readln(fin,givename[k]);
      for j:=1 to b do
      for l:=1 to n do
      begin
        if name[l]=givename[j] then
        save[l]:=c+save[l];
                 
      end;
      end
  else save:=save+a;
end;
close(fin);
assign(fout,'gift1.out');
rewrite(fout);
for i:=1 to n do

writeln(fout,name,'_',save-osave);
 
close(fout);
end.

程序前面没有写Header
程序前应该加上

没查出

程序首部没有加：program ____;

fp不加program是可以的

1楼的意思是，在USACO中提交程序必须要加上这些信息。
平常编程当中当然可以不加了。