turbo Pascal不高兴的津津

Program unhappy;
Const
infile = 'unhappy.in';
outfile = 'unhappy.out';
Var
a, b, k, i, max: Integer;
Begin
Assign(input, infile);
Reset(input);
max := 8; k := 0;
For i:=1 To 7 Do Begin
If max < a + b Then Begin
max := a + b; k := i;
End;
End;
Close(input);
Assign(output, outfile);
Rewrite(output);
WriteLn(k);
Close(output);
End.

实在是对不起...我真的看不出来哪里写得不对、
请高人指教。谢谢！
我改了一下...可是为什么最后unhappy.out出来的都是0呢？
请指教~！
Program unhappy;
Const
infile = 'unhappy.in';
outfile = 'unhappy.out';
Var
a, b, k, i, max: Integer;
Begin
Assign(input, infile);
Reset(input);
ReadLn(a, b);
For i:=1 To 7 Do Begin
max :=8; k :=0;
If max < a + b Then Begin
max := a + b; k := i;
End;
End;
Close(in

Turbo Pascal Turbo Pascal如何安装 turbo pascal的问题 turbo pascal 操作指南 Turbo pascal 高手进 TURBO PASCAL编程 Turbo Pascal作业 turbo pascal的数据类型 Turbo Pascal编程问题 turbo pascal简单程序