Задача с циклом. Определить среднее арифметическое тех а, которые больше числа n

uses CRT;
var
a: array[1..100]of real;
x,n,i:integer;
bufer,result,r:real;
begin
r:=0;
bufer:=0;
read(n,x);
for i:=1 to x do
begin
readln(a[i]);
if a[i]>x then
begin
bufer:=bufer+a[i];
r:=r+1;
end;
end;
if r=0 then r:=1;
result:=bufer/r;
write(result);
end.

Program sss;
Uses crt;
Var A:array[1..50] of integer;
    X,N,i,J:integer;
    S:real;
begin
 repeat
  Write('Ââåäèòå X ');
  ReadLn(X);
 until X > 0;
  Write('Ââåäèòå N ');
  ReadLn(N);
 
  for i:=1 to X do
  begin
    Write('a[',i,']= ');
    ReadLn(A[i]);
  end;
  S:=0; J:=0;
  for i:=1 to X do
  IF A[i] > N then
  begin
    inc(j);
    S:=S+A[i];
  end;
  if J<>0 then
    S:=S/j ;
  WriteLn('Îòâåò: ',S:5:3);
end.

program z;
var x,i,s,k,n,f:integer;
a:array [1..100] of integer;
begin
     write('Ââåäèòå x: ');
     readln(x);
     writeln('Ââîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to x do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     write('Ââåäèòå ÷èñëî n: ');
     readln(n);
     s:=0; f:=0; k:=0;
     for i:=1 to x do
         if a[i]>n
            then
                begin
                     f:=1;
                     k:=k+1;
                     s:=s+a[i];
                end;
     if f=0
        then
            writeln('×èñåë, áîëüøèõ ',n,' â ìàññèâå íåò!')
     else
         writeln('Ñðåäíåå àðèôìåòè÷åñêîå ÷èñåë áîëüøèõ ',n,' - ',s/k);
end.

Program sss;
Uses crt;
Var A:array[1..50] of integer;
    X,N,i,J:integer;
    S:real;
begin
 repeat
  Write('Ââåäèòå X ');
  ReadLn(X);
 until X > 0;
  Write('Ââåäèòå N ');
  ReadLn(N);
 
  for i:=1 to X do
  begin
    Write('a[',i,']= ');
    ReadLn(A[i]);
  end;
  S:=0; J:=0;
  for i:=1 to X do
  IF A[i] > N then
  begin
    inc(j);
    S:=S+A[i];
  end;
  if J<>0 then
    S:=S/j  else
    begin
      WriteLn('×èñåë, áîëüøèõ ',n,' â ìàññèâå íåò!');
      halt;
    end;
  WriteLn('Îòâåò: ',S:5:3);
end.