Найти среднее арифметическое элементов заданного массива

Program MassivA;
uses crt;
const
 n = 10;
var
 i:integer;
 a:array[1..n] of integer;
 zn:real;
function minz(i:integer):real;
begin
 if a[i]<>0 then minz:=2/a[i]+a[i]*a[i] else minz:=0;
end;
begin
 clrscr;
 randomize;
 for i:=1 to n do begin
    a[i]:=random(20);
    write(a[i]:3);
 end;
 zn:=minz(1);
 for i:=1 to n do if minz(i)<zn then zn:=minz(i);
 writeln;
 writeln(zn:4:2);
 readkey;
end.

Program MassivX;
uses crt;
const
 n = 10;
type
 mas = array[1..n] of integer;
var
 i,x1,kx:integer;
 X:mas;
 sumx,sumv:integer;
 
function sr(sum,k:integer):real;
begin
 sr:=sum/k;
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do begin
    x[i]:=random(20);
    write(x[i]:3);
 end;
 writeln;
 write('Vvedite x1: '); readln(x1);
 kx:=0;
 sumx:=0; sumv:=0;
 for i:=1 to n do begin
   if x[i]<x1 then begin sumx:=sumx+x[i]; inc(kx); end;
   sumv:=sumv+x[i];
 end;
 writeln('Srednee arifmetiches elementov menshi ' ,x1,' = ',sr(sumx, kx):4:1);
 writeln('Srednee arifmetiches vseh elementov = ',sr(sumv,n):4:1);
 readkey;
end.

sum:=0;
kol:=0;
for i:=1 to n do
 begin
  if x[i]<=x[1] then 
    begin
     sum:=sum+a[i];
     inc(kol);
    end;
 end;
sred:=sum/kol;

uses crt;
var a:array[1..100]of real;b,c,i,j:byte;s:real;
begin
read(b,j);s:=j;c:=1;
for i:=1 to b do begin
read(a[i]);end;
for i:=1 to b do begin
if a[i]<=j then begin
s:=s+a[i];inc(c);end;end;
writeln('sr.arifm.=',s/c:0:2);
repeat until keypressed
end.