我要所有可以玩PASCAL游戏！！（重金）

赛车程序
uses crt;
var v,t,m,i,j,k,x,y,t1,t2,t3,s:integer;
ch:char;
{test:text; }
procedure GameOver;
var ch:char;
begin
gotoxy(20,10);
write('Game over!!!');
repeat
ch:=readkey;
until ord(ch)=13;
halt;
end;
procedure pri;
begin
ClrScr;
gotoxy(1,1);
textbackground(green);
for i:=1 to 5 do
begin
for j:=1 to 40 do write(' ');
writeln;
end;
textbackground(white);
for i:=1 to 10 do
begin
for j:=1 to 40 do write(' ');
writeln;
end;
textbackground(green);
for i:=1 to 5 do
begin
for j:=1 to 40 do write(' ');
writeln;
end;
end;
procedure go(guanshu:byte);
v