Срочно !!!!
Заполнить собственными индексами элементы массива B1,B2...B10.

чтото както стиль непонятный и не в одну строку но с варами

var внутри блока - это стандартная базовая возможность PascalABC.NET независимо от версии. Остальное - просто школьный вариант решения, как на древних паскалях.

Я пишу решения сообразно тем балам, которые автор вопроса выставляет за решение. Если балов много, а задача простая - решаю её "по-школьному" трудозатратно. А если задача громоздкая, но баллов мало - то пишу максимально кратко с привлечением всех возможностей PascalABC.NET