Сколько частей массива больше числа A. Написать программку на языке Pascal.

var i,a,n,k:longint;

var mas:array[1..100000000] of longint;

begin

k:=0;

writeln('Введите количество частей массива');

readln(n);

writeln('Введите число A');

readln(a);

for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]gt;a then k:=k+1; end;

writeln(k,' частей массива больше числа',' ', a);

end.