Паскаль даны с,m и массив t(m).найти число элементов массива т , меньших с,а для элементов ,больших с,найти их среднее арифметическое.

Program n1;
const m=10;
var a: array [1..m] of integer;
k,k1,i,sum,c: integer;
begin
readln(c);
sum:=0;
k:=0;
k1:=0;
for i:=1 to m do readln(a[i]);
for i:=1 to m do
begin
if a[i]<c then k:=k+1
else
begin
sum:=sum + a[i];
k1:=k1+1;
end;
end;
writeln(k);
writeln(sum/k1);
end.