Заполнить собственными индексами элементы массива b1,.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var b:array[1..10] of integer;
  for var i:=1 to 10 do begin
    b[i]:=i; Write(b[i],' ')
    end
end.

Результат:
1 2 3 4 5 6 7 8 9 10