把代码 贴上啊

Program unhappy(input,output);
var
a,b:array [1..7] of integer;
i:integer;
f1,f2:text;
begin
assign(f1,'unhappy.in');
assign(f2,'unhappy.out');
reset(f1);
for i:=1 to 7 do readln(f1,a[i],b[i]);
for i:=1 to 7 do
begin
if a[i]+b[i]>8 then
begin
rewrite(f2);
writeln(f2,i);
close(f2);
exit;
end;
end;
rewrite(f2);
writeln(f2,'0');
close(f1);
close(f2)
end.


就是这个~编写出来总是不出来文件输出`

文件路径搞错了？ close(f1) 要放前面？

把rewrite(f2)放到reset(f1)的后面