Manipulando vetor achar numeros pares em Pascal usando o Lazarus

Boa noite a todos voltando a mais uma postagem estarei ainda falando sobre vetores e matrizes, mas neste momento vamos ver como manipular um vetor para achar numeros pares dentro das posições de um vetor primeiramente o usuario digitara todos os valores nas posições solicitadas e logo em seguida ele buscara quais deste valores são pares e contara e informara a quantidade.

program project1;
{achar numeros pares no vetor
euclezio
ler um vetor de 40 posições contar e escrever quantos numeros pares ele possui}


{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
{declaração do vetor}
vetor: array[1..40]of integer;
{declaração das variaveis de uso}
i,par: integer;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin
{aqui é inicializada a variavel}
par:=0;
{é criado um loop de 40 posições para ler os valores a ser colocado nas
posições do vetor que sera o "I"}
    for i:=1 to 40 do begin
        writeln( ' digite o ', i, ' valor:');
        readln(vetor[i]);
{abaixo é criado um teste de que se o vetor na posição "I" for "mod " igual a 0 ele
é par entao ele incrementa a variavel "PAR"}
        if vetor[i]mod 2=0 then par:= par+1;
    end;


{neste trecho é mostrado a quantidade de numeros pares}
    writeln(' a quantidade de numeros pares é ou são: ', par)   ;

    readln;
end.

bom galera ta ai qualquer coisa é só entrar em contato e no mais, até a proxima