Questão final de algoritmo!

Entre as 18 questões da tarefa final de Algoritmo, eu tive que explicar a questão 17. Esta questão exigia o seguinte: Leia 20 números, deposite-os em um vetor e mostre os números pares lidos, e após, os números que estão nas posições pares.

Eis abaixo o código e a explicação

O inicio do programa é sempre o mesmo: o comando program seguido do nome do programa.

{nome do programa}

{biblioteca Pascal utilizada}

Program mostrar_posicao ;

uses crt;

var {declaração de variaveis}

v20:array[1..10] of integer;
i:integer;

{ o inicio do programa }

Begin 

{ o primeiro FOR recebe todos os números do vetor.}

  for i:= 1 to 10 do
            begin
            write('Digite 20 numeros! [',i,' ]: ');   
            readln(v20[i]);
          end
     ;

{ Esse bloco aqui, escreve na  tela o enfeite pontilhado e os números digitados}

    writeln('.................................. ');   
    writeln('Os números pares digitados: ');   
    writeln('.................................. ');

{ Esse FOR, lista no vetor[i] todos os números pares digitados. Não escrevi, mas, bem que poderia ter um ELSE, para, se no caso, não existir nenhum número par digitado.}

   for i:= 1 to 10 do
            begin
           if (( v20[i] mod 2)=0) then
                  BEGIN
                writeln('Posicao [ ',i,' ]: ',v20[i]);
               END
          end
     ;     

{Este bloco apresenta os números que foram digitados na posição par do vetor de 20 posições. Evidente que não há necessidade de um ELSE, uma vez que enter 1 e 20 existem pelo menos a metade de posições pares.}

writeln('.................................. ');   
     writeln('Os números nas posicoes pares sao: ');   
        writeln('.................................. ');   

    for i:= 1 to 10 do
        begin
            if ((i mod 2)=0) then
                begin
                    writeln('Posicao [ ',i,' ]: ',v20[i]);
                end                               
            ;
        end
    ;
End.

Alguns colegas não entenderam por que alonguei tanto em questão tão simples. Mas, tenho certeza de que quem pediu para eu ir apresentar e demorar entendeu.