关于可以抽签的编程

用pascal
begin
randomize;
writeln("Congratulations! ",random(<数字>)+1," won!");
end.

可以玩的程序?这里有一个贪吃蛇程序,原创,但是好像有bug(对游戏无影响)

program GReedySNAKE;

uses Crt;

const up=0;
right=1;
down=2;
left=3;
usual=0;
bonus=1;
shorten=2;

type point=record
x,y:integer;
end;

type tfood=record
fpoint:point;
ftype:byte;
case byte of
usual:();
bonus:
(btime:word;
bscore:byte);
shorten:
(stime:word;
slength:byte);
end;

var cur,bin:point;
food:tfood;
track:array[1..200]of point;
ch:char;
dir:byte;
hit:boolean;
int,length,score:integer;

function pzero(p:point):boolean;
var bool:boolean;
begin
if (p.x=0) and (p.y=0) then
bool:=true
else
bool:=false;
pzero:=bool;
end;
<