Задача в Паскале. Найти количество элементов четного массива

Я понял задание и написал программу:

uses Crt;

const n=25;

type Mas=array [1 ... n] of integer;

var i, Col: integer;

A: Mas;

begin

ClrScr;

Randomize;

Col:=0;

WriteLn (' Massiv A:') ;

for i:=1 to n do

begin

A[i]:=10+random (90) ;

Write (A[i]:3) ;

if (A[i] mod 2=0) then Col:=Col+1;

end;

Writeln; WriteLn;

WriteLn (' Col = ', Col) ;

ReadLn;

end.