defined variable
Rname: string of array [0..9];
begin
Rname[0] :=' Zhang San';
Rname[ 1] :=' Li Si';
Rname[2] :=' Wang Wu';
Rname[3] :=' Liu Lan';
Rname[4] :=' Richie';
Rname[5] :=' tortoise';
Rname[6] :=' Bangjiu';
rname[7]:= ' Primary One '；
Rname[8] :=' sophomore';
Rname[9] :=' old three';
edit 1。 text:= Rname[Random( 10)]；
End;