Дан случайный массив из N чисел, лежащих в промежутке [-15;15]. Выписать

//PascalABC.NET
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15); 
if a[i] mod 2 = 0 then begin 
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol lt;gt; 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных частей нет');
end.