Помогите решить
В массиве из 20 элементов заполненном целыми числами из интервала [0;1000] найти количество четных двузначных чисел.(PascalABC)

const n = 20;var a:array[1..n]of integer;k,i:integer;begin  for i:=1 to n do begin    a[i]:=random(1001);    write(a[i],' ' );    if (a[i]>9)and(a[i]<100) and (a[i] mod 2 =0) then k:=k+1;  end;  writeln;  writeln('Количество четных двузначных: ',k);end.

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016begin  var n:=ArrRandom(20,0,1000).Println.    Where(x->(x>9) and (x<100)).Count;  Writeln('Количество двухзначных чисел равно ',n)end.Тестовое решение:310 202 752 389 189 668 734 25 988 561 710 26 847 870 655 984 528 746 93 135Количество двухзначных чисел равно 3