Сформировать массив, подсчитать количество элементов не превосходящих заданного числа n-задано с клавиатуры. найти их среднее арифметическое значение.

Var a:array [1..20] of integer;
s,k,i:integer;
begin
k:=0; s:=0;
for i:=1 to n do
read(a[i]);
readln(n);
for i:=1 to 20 do
if a[i]<=n then begin
k:=k+1;
s:=s+a[i];
end;
writeln('Кол-во:',k);
writeln('Средн.арифм.:',s/k)
end.