Прости, в Паскале не могу, не учил. Я подал алгоритм, посмотри, как вы в Паскале пишите циклы и т.п. и тупо подставь. У меня алгоритм такой: цикл повторяется (размер массива А) раз, в цикле логический оператор "если" - если i-тый элемент массива А равен нулю, то присвоить i-тому элементу массива В значение i. Думаю, ты понял, если что, просто задай вопрос с просьбой перевести в Паскаль