Определить, будет ли средний элемент упорядоченного массива больше, меньше или равен среднему арифметическому всех элементов массива

Program zadacha_2;
var ar: array [1..15] of integer; i:integer;
 
procedure sort(var ar: array [1..15] of integer);
var tmp,i,j:integer;
 
begin
       for i:=1 to 14 do
       for j:=1 to 14 do
       begin
            if ar[j] > ar[j+1] then begin
            tmp:=ar[j+1];
            ar[j+1]:=ar[j];
            ar[j]:=tmp;
            end;
       end;
end;
 
Function aver(var ar: array [1..15] of integer):real;
var tmp:real;
begin
     tmp:=0;
           for i:=1 to 15 do
               tmp:=tmp+ar[i];
     aver:=tmp/15;
end;
 
begin
     for i:=1 to 15 do
         ar[i]:=Random(20);
     writeln('Массив до сортировки');
     for i:=1 to 15 do write(ar[i],' ');
     writeln();
     writeln('Массив после сортировки');
     sort(ar);
     for i:=1 to 15 do write(ar[i],' ');
     writeln();
     
     writeln('Среднее арифметическое = ',aver(ar):7:2);
     
end.

if ar[7]>aver(ar) then.....
else if ar[7]<aver(ar)......
else.....

Program zadacha_2;
uses crt;
const n=15;
type mas=array [1..n] of integer;
 
procedure sort(var ar:mas);
var tmp,i,j:integer;
begin
for i:=1 to n-1 do
for j:=1 to n-1 do
if ar[j] > ar[j+1] then
 begin
  tmp:=ar[j+1];
  ar[j+1]:=ar[j];
  ar[j]:=tmp;
 end;
end;
 
Function aver(var ar:mas):integer;
var i:integer;
    tmp:real;
begin
tmp:=0;
for i:=1 to n do
tmp:=tmp+ar[i];
aver:=round(tmp/n);{среднее округлим до целого, иначе никогда не будет равно}
end;
 
procedure compare(ar:mas;var a,b:integer);
begin
a:=ar[n div 2+1] ;
b:=aver(ar);
writeln('Средний элемент массива=',a);
writeln('Среднее арифметическое =',b);
if a>b then write('Средний элемент массива больше среднего арифметического')
else if a<b then write('Средний элемент массива меньше среднего арифметического')
else  write('Средний элемент массива равен среднему арифметическому');
end;
var ar:mas;
    i,srel,srar:integer;
begin
clrscr;
randomize;
writeln('Массив до сортировки');
for i:=1 to n do
 begin
  ar[i]:=Random(20);
  write(ar[i],' ');
 end;
writeln;
writeln;
sort(ar);
writeln('Массив после сортировки');
for i:=1 to n do
write(ar[i],' ');
writeln;
writeln;
compare(ar,srel,srar);
readln
end.