Verschenke Darkrai Code !!!

program Zufallszahlen;
var
x:integer;
Teilnehmer:array[1..42] of string = (
'Clouddakera',
'Letarking_Fan',
'Super-Nicht_Alex',
'YAN219',
'Doktirin Heiteira',
'Mars_X',
'Seikatsu',
'tekka',
'LaBestiaNegra',
'SheShe',
'Maki Nishikino',
'carrick500',
'Dyseed',
'Panflam711',
'Registeel',
'YungGod',
'Casix3',
'Anna-Laura',
'Gladiatorr',
'Mangarinne',
'Durenald',
'Andromeda2013',
'CodeHat',
'Feuervictini',
'BisasamMama',
'Akirachael',
'Kyurem',
'TitanTroll',
'TheNiklasbacker',
'Hasso',
'Space Dorito',
'Milianco',
'Entoron',
'Kroenik',
'Alcatraz',
'Joschato',
'Kimori',
'ExcaKill',
'G3Rrl',
'Beykey',
'bamii',
'10mehmet10');

begin
randomize;
writeln('Jetzt wird ein zufaelliger Gewinner gewaehlt :)');
readln;
writeln;
writeln;

x := random(42)+1;
write(Teilnehmer[x]);

readln;
end.