var Ashitanotenki: TKisyoutyou;

Ahitanotenki := Rando(TKisyoutyou);

このようなプログラムを作りましたが、周りの人から
百叩きにあいます。なぜなんでしょう。