Программа в паскале АБС. Работаем сейчас с массивом. Вот, собственно, и задание: "Две подряд встречающиеся единицы заменить на две двойки"

Код в файле. В 1 строке вводим N - размер массива, затем N чисел- сам массив. Меняет только 2 соседние единицы, т.е. для массива {1 1 1} сделает {2 2 1}