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

Я понял задание и написал программу: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.