Паскаль. Задачка по массиву

[-ZaK-]

Здравствуйте.
Недавно начал изучать Паскаль, всё вроде бы шло неплохо, пока не наткнулся на одну задачку. С виду задачка проще не бывает

В массиве после каждого чётного числа добавить 0 (предусмотреть заранее необходимую длину рабочего массива, чтобы
была возможность его расширения)

в общем вот мой вариант:

var
a:array[1..10] of integer;
i,k,N:integer;
begin
for i:=1 to 5 do read (a[i]);
N:=5;
for i:=5 downto 1 do begin
if a[i] mod 2=0 then
begin
k:=a[i+1];
a[i+1]:=0;
a[i+2]:=k;
N:=N+1; end; end;
for i:=1 to N do write (a[i],' ');
writeln ('n= ',N); end.

я практически уверен, что ошибка где-то в выделенных строчках, но как не крутил задачу, так и не смог заставить её корректно работать.
Пожалуйста, помогите, кому не сложно, найти ошибку в этом алгоритме.
Зарание спс

[SuperVisor]

Код писать лень, т.к. с мобилы.
Алгоритм:
1. Читаем исходные значения массива
2. С первого элемента проверяем, является ли значение четным.
2.1 Да: с предпоследнего элемента массива начинаем копирование элементов до порядкового номера текущего элемента, на его значение записываем 0.
2.2 Нет: следующий элемент.
3. Вывод результата.

[sergey07]

А мвссив в задаче должен задаваться произвольным образом? или грузиться с файла?

[-ZaK-]

массив любой, задаётся пользователем произвольным образом

[north]

program t1;
var n,p,i,x,g,j:longint;
a:array[1..10000] of longint;
begin
n:=0;
while not eoln do begin
     inc(n);
     read(a[n]);
     end;
i:=0;
while i<=n do begin
    inc(i);
    if (a[i] mod 2 =0) and (a[i]<>0) then begin
        p:=a[i+1];
        a[i+1]:=0;
        inc(n);
        j:=i+2;
        while j<=n do begin
            x:=a[j];
            a[j]:=p;
            p:=x;
            inc(j);
            end;
        end;
    end;
for g := 1 to n do write(a[g],' ');
writeln;
end.

Есть кнопка "Правка" + код заключаем в тэги. SupVis.

[Jacknolf]

помогите пожалуйста очень надо:
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании.
а) Заменить заданным вектором строки В, которые содержат хотя бы один отрицательный элемент;

б) в полученной матрице вычислить суммы элементов строк, номера которых не являются элементами заданного целочисленного вектора.

[Ярослав 89]

Помогите решить задачу в турбо паскале.
В однородном массиве заменить все элементы A[i] на сумму A[i]+A[i+1].