Random以及变量转换问题，谢谢！

问题一：
关于Random问题：
function Randomid:Integer;
var
   I: Integer;
begin
   Randomize;
   for I:= 1 to 10 do begin
   result:=random(I)
   end;
end;
为何调用Randomid时，结果并不是前面限定的变量I的范围内Random呢？而似乎好象是在一个很大的范围内随机变化。
问题二：
变量转换问题：
    如一个integer类型的变量n，我需要随着n：=n+1的增加，输出n的当前取值（假设为string或者char类型），却因为integer和string或者char类型不符合而无力适从
请各位帮忙，谢谢！