помогите !написать программу для одномерного массива подсчёт кол-ва частей массива, выше

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -99, 99);

 a.Println;

 Writeln('Частей со значением, превосходящим 30: ',

     a.Where(t -gt; t gt; 30).Count)

end.

Пример

n= 17

29 8 -26 51 -32 -35 46 95 -90 58 66 64 19 -3 34 -8 45

Частей со значением, превосходящим 30: 8

const n=10;

var a:array [1..n] of integer;

i,k:integer;

begin

for i:= 1 to n do

begin

a[i]:=Random(90)+10;

write(a[i],'  ');

if a[i]gt;30 then k:=k+1

end;

writeln;

writeln ('Кол-во элементов массива, выше 30, равно: ',k)

end.