program rich;
uses CRT;
var
mon,dt,d,m:array[1..20] of string[12];
lexp:array[1..19]of integer;
pch,meh:array[1..19] of boolean;
i,j,buym,goluf,exm,pcb,pcb1,pcb2,meb,meb1,code,cmoney,ck,huojian,saizi,shop1:integer;
use,buy,upq,bank1,x:char;
pcm,money:longint;
procedure biaohao;
begin
textcolor(red);
d[1]:=' Beijing ';
d[2]:=' Shanghai ';
d[3]:=' Guangzhou ';
d[4]:=' Shenzhen ';
d[5]:='Shijiazhuang';
d[6]:=' Qingdao ';
d[7]:=' Zhejiang ';
d[8]:=' Chengdu ';
d[9]:=' Jinan ';
d[10]:=' Airport ';
d[11]:=' Train stop';
d[12]:=' Kunming ';
d[13]:=' Tianjin ';
d[14]:=' Hefei ';
d[15]:=' Xi''an ';
d[16]:=' Lasha ';
d[17]:=' Wulumuqi ';
d[18]:=' Nanjing ';
d[19]:=' shop ';
d[20]:=' bank ';
for i:= 1 to 19 do
begin
case i of
1..4:mon[i]:='$1000';
5..9:mon[i]:='$900';
10..11:mon[i]:='$100';
12..19:mon[i]:='$500';
end;
end;
for i:=1 to 20 do
begin
dt[i]:=d[i];
m[i]:=mon[i];
pch[i]:=false;
meh[i]:=false;
lexp[i]:=0;
end;
end;
procedure display;

建议用case of试试