Почему первый элемент массива всегда имеет значение 0?

Question

program Project2; 
 
{$APPTYPE CONSOLE} 
 
uses 
 SysUtils; 
var 
 b : array[1..10] of integer; 
 i : integer; 
procedure MassRandom(var a: array of integer); 
 var i : Integer; 
 begin 
 randomize; 
 for i := 1 to 10 do 
 begin 
 a := 1 + Random(100); 
 end; 
 end; 
begin 
 MassRandom(b); 
 for i := 1 to 10 do 
 writeln('b[', i-1, '] = ', b); 
end.

Оксана Кучерова · Accepted Answer

зачем ты в последнем выводе вычитаешь 1, на сколько я понял у тебя выводиться i-1, i=1, i-1=0

Алена Каплун · Answer

А так будет нормально выводить: 
 
{$APPTYPE CONSOLE} 
 
uses 
SysUtils; 
var 
b : array[0..9] of integer; 
i : integer; 
procedure MassRandom(var a: array of integer); 
var i : Integer; 
begin 
randomize; 
for i:=0 to 9 do a:=1+Random(100); 
end; 
 
begin 
MassRandom(b); 
for i := 0 to 9 do 
writeln('b[', i, '] = ', b); 
readln; 
end.