Найдите количество превышающих 4 в паскале

Begin
 var a:=ArrRandom(10, -10,10);
 a.Println();
 writeln(a.Where(x->x>4).Count);
end.

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.

Пример
n= 5
3 7 0 -5 9
2