pascal程序设计问题 看看有什么错误

const maxn=10;
var
a:array[1..maxn,1..maxn] of integer;
n,sum,dep,i,j,max:integer;
procedure tyit(x,y,dep,sum:integer);
begin
if (dep=n) then
begin
if sum>max then max:=sum;
exit
end;
tyit(x+1,y,dep+1,sum+a[x+1,y]);
tyit(x+1,y+1,dep+1,sum+a[x+1,y+1]);
end;
begin
assign(input,'sjx.in');
reset(input);
readln(input,n);
for i:=1 to n do
for j:=1 to i do
read(input,a[i,j]);
max:=0;
tyit(1,1,1,a[1,1]);
assign(output,'sjx.out');
rewrite(output,max);
close(input);
close(output);
end. 编译器给出：Call by var parameters have to match exactly: Got "Text" expected "File" 在rewrite(output,max);这一句上

rewrite(output);

writeln(max);

这样应该可以了

rewrite括号里只能写output

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息