『求助』大家看一看这个程序有什么错？ [复制链接]

下面是引用gelanjie于2005-10-31 20:50发表的『求助』大家看一看这个程序有什么错？:
var N,k:integer;
B:array[1..1000] of integer;
Procedure chg10(N,x:integer); {将十进制数N转换成x进制数}
Begin k:=0;   {转换后的x进制数位的长度}
.......