Найти количество элементов массива больших С

uses crt;
var
a:array[1..100]of integer;
i,kol,n,c:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
for i:=1 to n do
write(a[i],'  ');
writeln;
write('c=');
read(c);
kol:=0;
for i:=1 to n do
if a[i]>c then inc(kol);
writeln('kol-vo elementov>',c,' =',kol);
readkey;
end.

uses crt;
var
a:array[1..100]of integer;
i,max,n,p,j:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
for i:=1 to n do
write(a[i],'  ');
writeln;
p:=1;
max:=abs(a[1]);
for i:=1 to n do
if abs(a[i])>max then
 begin
  max:=abs(a[i]);
  j:=i;
 end;
writeln('max(po modulyu)=',max);
for i:=j+1 to n do
p:=p*a[i];
writeln('proizvedenie=',p);
readkey;
end.

const N=10;
var Mas: array[1..N] of real;
    C, proiz:real;
    i,j, count:integer;
    n_max:integer;
begin
 count:=0; //÷èñëî ýëåìåíòîâ áîëüøèõ C
 n_max:=1; //Íîìåð ìàêñèìàëüíîãî ïî ìîäóëþ ýëåìåíòà
  for i:=1 to N do
    begin
      write('Enter element [',i,'] : ');
      readln(Mas[i]);
       if abs(Mas[n_max])<abs(Mas[i]) then
        n_max:=i;
    end;
 
    write('Enter C: ');
    readln(C);
 
    proiz:=1;  //Ïðîèçâåäåíèå ýëåìåíòîâ
 
     for i:=1 to N do
      begin
        if i>n_max then
         proiz:=proiz*Mas[i];
        if Mas[i]>C then
         count:=count+1;
      end;
 
     for j:=1 to n-1 do
      for i:=1 to n-1 do
       if Mas[i]>Mas[i+1] then
        begin
          C:=Mas[i];
          Mas[i]:=Mas[i+1];
          Mas[i+1]:=C;
        end;
 
   writeln('Count element > C: ',count);
   writeln('Proizvedenie elementov: ',proiz);
   writeln('result massiv:');
    for i:=1 to n do
     write(Mas[i]:5:3,' ');
   readln;
 
end.