你他妈都不跟我说哪里错了，我怎么改啊
var n,i,j,x,c,t:longint;
s,a:array[0..1000]of string;
begin
read(n);x:=1;t:=1;
s[1]:='/\';s[2]:='/__\';
s[3]:='/\ /\';s[0]:='/__\/__\';
a[1]:=' ';a[2]:=' ';a[3]:=' ';
for i:=1 to n do x:=x*2;
for i:=1 to n do t:=t*2;
dec(t);
for i:=1 to x do begin
for j:=1 to t do write(' ');dec(t);
write(s[i mod 4]);
if i>4 then begin
if i mod 4=0 then c:=1 else c:=0;
for j:=1 to i div 4-c do
write(a[i mod 4],s[i mod 4]);
end;
writeln;
end;
end.