Найти количество четных чисел в одномерном массиве размерностью 5

Program Massiv;

Uses Crt;

var a:array[1..5] of integer;

       i,n:integer;  

begin 

     clrscr;

     n:=0;   

    write('Исходный массив:');  

    for i:=1 to 5 do

         begin 

          a[i]:=random(101); 

          if (a[i] mod 2)=0 then Inc(n);

          write(a[i]:4);

      end;

writeln;

writeln('Количество чётных элементов=',n);

   readkey; 

end.