我把源码也放上来吧：

label 10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200;
var
q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,h,j,k,l,z,x,c,v,b,n,m:longint;
aa,bb,cc,dd:array[0..10000] of longint;
aaa,bbb,ccc,ddd:array[0..60000] of string;
ee,ff,gg:array[0..100000] of char;
ii,jj,kk,nn,mm:string;

procedure cls;
var i:longint;
begin
for i:=1 to 100 do
writeln;
end;

procedure print;
begin
writeln;
writeln;
writeln;
end;

begin
writeln;writeln;writeln;
writeln('Welcome to (mo ta)');
writeln;writeln;writeln;
readln;
cls;
writeln('You say:What is this?');
print;
readln;
cls;
writeln('One NPC say:I am the good NPC,I can help you to do somethings.' );
print;
readln;
cls;
writeln('You say:How can you help me?');
print;
readln;
cls;
writeln('One NPC say:I can give you something to drink and somthing to eat.');
print;
readln;
cls;
writeln('You say:That is great!');
print;
readln;
cls;
writeln('You have one water and a hamburger now!');
print;
d:=d+50;
e:=e+50;
readln;
cls;
writeln('The NPC say:if you want to be high,you can go in a big city.');
print;
readln;
cls;
writeln('You say:a big city?');
print;
readln;
cls;
writeln('Yes,do you want to go?');
print;
readln;
cls;
writeln('You say:Yes!I want!');
print;
readln;
cls;
writeln('You Go...............');
print;
readln;
for i:=1 to 30 do
cls;
writeln('Ok!is this now!Woh!How big city it is!');
print;
print;
print;
readln;
10:cls;
writeln('What do you want to go?1 is the beach,2 is the store,3 is the forest');
print;
print;
print;
readln(n);
if n>3 then begin;writeln('You do not can go there!');readln;goto 10;end;
if n=1 then goto 20;
20:cls;
writeln('Woh!How beatiufull sea is it!');
print;
readln;
cls;
writeln('But,this is one NPC come here.');
print;
readln;
100:cls;
if m=0 then begin;writeln('He say:you are soo poor,I can give you 10$.');m:=m+10;end
else
writeln('He say:you have ',m,' money,do you want a curcle?it costs 1$.Y/N');
print;
readln(nn);
if nn<>'N' then
begin
cls;
writeln('Good,you have a curcle now ,you can swim!');
c:=1;
print;
end
else
begin
cls;
writeln('Is....en....if you want you can write C any more');
print;
end;
readln;
cls;
writeln('Do not you go the beach?Y/N');
print;
readln(nn);
if nn='Y' then goto 10;
cls;
writeln('Do you want to swim in the sea?Y/N');
print;
if c=0 then begin
cls;
writeln('you do not have a curcle,you can buy one.');
print;
readln;
goto 100;
end
else
BEGIN
cls;
writeln('Ok,you are in the sea now.');
print;
end;
readln;
cls;
90:writeln('Oh no! there is a fish! It want to catch you!What can you do!');
print;
print;
writeln('you can :1,use your hands to hit it. 2,eat it .3,catch it and eat it');
print;
readln(n);
if n=2 then
begin
cls;
writeln('Oh,no,it is very ugly!');
print;
readln;
goto 90;
end;
if n=3 then
begin
cls;
writeln('Oh,no, the fish is running away!');
print;
readln;
goto 90;
end;
if n=1 then
begin
cls;
writeln('Good!you have a fish now!');
print;
readln;
e:=e+50;
end;
cls;
writeln('This is Lv1.1,Thank you to play,bye-bye!':50);
print;print;print;print;
readln;
end.

很垃圾吧，大家别打击我555555555

满篇的[b]goto[/b]看的好晕……
qwerty的变量名……
天啊……

建议么……

不到万不得已尽量不要用goto，
试试换成while和case吧。
当然，尽量把大段的代码分成小的过程、函数会好一些
（一个过程、函数最好不要超过二三十行，以一个屏幕能装下为好，当然具体的也得看情况）

还有，就是英文的标点后面最好空一个格，比较美观……

如果实在愿意写游戏的话，还可以考虑用一下crt库（uses crt;）
（!竞赛是不允许用这个的!，需要FP或者装过补丁的TP）
这里面有一些屏幕处理的过程、函数，比如清屏、移动光标或改颜色什么的。

别删此贴，我想看看小甜甜的回复