¡Delphi hará una lotería! ! !

Programa TForm1. Button1Click(remitente: al objeto);

Definir variables

Rname: cadena de matriz [0..9];

Inicio

Rname[0] := 'Zhang San';

Rname[1] := 'Li Si';

Rname[2] := 'Wang Wu' ;

Rname[3] := 'Liu Lan';

Rname[4] := 'Li Qi';

Rname[5] := 'tortuga' ;

Rname[6] := 'Bangjiu';

rname[7]:= 'Primario';

Rname[8 ] := ' Estudiante de segundo año';

Rname[9] := 'Niño de tercer año';

texto:= Nombre[Aleatorio(10)];

Fin;