PascalABC.net проблема с массивом

program zalupa;
begin
var zalupen:array[1..100] of integer;
var i, b, c:integer;
c:=3;
randomize;
for i:=1 to 100 do
zalupen[i]:=random(10);
for i:=1 to 100 do write (zalupen[i],' ');
var zalupenx3:array[1..100] of integer;
for b:=1 to 100 do zalupenx3[b]:=zalupen[i]*3;
for b:=1 to 100 do write (zalupenx3[b],' ');
end.

Второй массив должен умножать все значения первого массива на 3 и выводить их