חשבתי איך אפשר לעשות את זה (אני לא בטוח שזה יעבוד, המון זמן לא השתמשתי בפסקל).
אבל תנסה אולי ליצור Type או Array של Strings שבכל אחד מהמקומות יהיה סימן אחר לדוגמא (ציירתי) וכו'ואז תעשה Random שיבחר בניהם, ולדעת מה הוא בחר זה לא בעיה 
Randomize; mChar:=Random(Array_Or_Type_You_Wrote)
|
אני לא בטוח שזה נכון, אבל.. אני מקווה 