Random in GPC Pascal?