Программа генерирует последовательность состоящую тз 10 чисел, и распечатывает эти числа и количество четных- Pascal(Паскаль)

var
  i, a, kol: integer;

begin
  kol := 0;
  for i := 1 to 10 do
  begin
    a := random(10) - 3;
    write(a:3);
    if a mod 2 = 0 then
      inc(kol);
  end;
  write('Kol:=', kol);
  readln;

end.