В одномерном массиве, состоящем из n элементов, вычислить количество элементов, больших С — Pascal(Паскаль)

program z;
var a:array [1..100] of integer;
     f,i,n,c:integer;
begin
Write('N=');
Readln(n);
for i:=1 to n do
write('a[',i,']=');
Readln(a[i]);
Write('C=');
Readln(c);
f:=0;
for i:=1 to n do begin
if a[i]>c then f:=f+1;
end;
Write('Количество чисел больших ',C,'=',f);
Readln;
end.