uses crt,dos;
var
a,k,s:longint;
procedure jm(a:longint);
begin
read(a);
if a='w' then
begin
if s<2 then
begin
s:=s-1;
end;
end;
if a='s' then
begin
if s>1 then
begin
s:=s+1;
end;
if s=1 then
begin
begin
textbackgroun(green);
writeln('游戏开始')；
end;
begin
writeln('游戏说明')；
end;
end;
if s=1 then
begin
begin
writeln('游戏开始')；
end;
begin
textbackgroun(green);
writeln('游戏说明')；
end;
end;
if a='Y' then writeln('game');
else jm(s);
end;
begin
begin
textbackgroun(green);
writeln('游戏开始')；
end;
begin
writeln('游戏说明')；
end;
s:=1;
read(k);
jm(k);
end.

同志，您的程序问题够多的！
语法都没学好，还玩单元！

对了，你的主程序呢？全是过程函数，没有找到主程序！！！

不争、不抢，沉淀下来，不懒惰、不拖延、不泄气，做一个自己想做的人。不为昨天的错误不肯原谅自己，忘了该忘了，坚持有意义的。我还有明天，而且阳光又是这么美！