Pascal/Turbo Pascal - Ayuda con un ejercicio [ARRAY]

uses crt;

var

    v:array[1..10] of integer;

    i:byte;

begin

    clrscr;

    {Rellenando el array con numeros}

    for i:=1 to 10 do

    begin

        write('Ingrese numero ',i,': ');

        readln(v[i])

    end;

    writeln('Conjunto inicial:');

    for i:=1 to 10 do

        write(v[i],' ');

    {Si el ultimo elemento es par, cambiar con ceros}

    {todos los elementos en las posiciones pares}

    writeln;

    writeln('Conjunto resultante:');

    if v[10] mod 2 = 0 then

    begin

        for i:=1 to 10 do begin

            if i mod 2 = 0 then

                v[i] := 0;

            write(v[i],' ');

        end

    end

    {Caso contrario cambiar con ceros los elementos}

    {en las posiciones impares}

    else

    begin

        for i:=1 to 10 do

        begin

            if i mod 2 <> 0 then

                v[i]:=0;

            write(v[i],' ');

        end

    end;

    readkey;

end.