Найдите количество превышающих 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='(x-> x> 4).count) end. пример n= 5 3 7 0 -5 9 2

В 1964 году вышла первая мышь в истории человечества.
а 9 декабря 1968 года ее представили на конференции в Сан-Франциско.

#include <iostream>
#include <fstream>
using namespace std;

int main()
{
    ifstream in;
    ofstream out;
    in.open("input.txt");
    out.open("output.txt");
    int n;
    in >> n;
    for (int i=1; i<=n; i++) out << 2*i-1 << " ";
    in.close();
    out.close();
    return 0;
}

Пример:
Файл input.txt:
5
Файл output.txt^
1 3 5 7 9

Солог йынса ааааааааа