Определить среднее арифметическое элементов, которые больше n

Program SrMas;
const p=100;
var a:array [1..p] of integer; x,n,i,count:integer; sr:real;
begin
     Writeln('Ввести X');
     Readln(x);
     Writeln('Ввести N');
     Readln(n);
     Writeln('Заполнить элементами массив');
     for i:=1 to x do
         begin
         Read(a[i]);
         end;
     sr:=0;
     count:=0;
     for i:=1 to x do
         begin
              if a[i]>n then
                 begin
                 sr:=sr+a[i];
                 inc(count);
                 end;
         end;
     sr:=sr/count;
     Writeln(sr);
end.

uses crt;
const x=10;
var a: array[1..x] of integer;
    n,i,sum,kol: integer;
begin
write('Введите n: ');
read(n);
for i:=1 to x do begin
write('a[',i,'] = ');
read(a[i]);
if a[i]>n then begin
inc(sum,a[i]);
inc(kol);
end;
end;
write('Среднее арифметическое элементов, больших ',n,': ',sum/kol);
end.