Дан одномерный массив. Посчитать сколько элементов массива больше среднего значения

var Arr: array [1..100] of integer; n,kol,i:byte; sum,sr:real;
begin
  write('vvedite kolichestvo elementov: ');
    readln (n);
    for i:=1 to n do begin
      write ('vvedite ',i,'-j element: ');
      readln (arr[i]);
      end;
    sum:=0;
    for i:=1 to n do
     sum:=sum+arr[i];
    sr:=sum/n;
    kol:=0;
    for i:=1 to n do
      if arr[i]>sr then kol:=kol+1;
    write ('otvet: ',kol);
    readln
end.

var Arr: array [1..100] of integer; n,i:byte; sum_otr,kol_chet,pr_kr_5:integer;
begin
  write('vvedite kolichestvo elementov: ');
    readln (n);
    for i:=1 to n do begin
      write ('vvedite ',i,'-j element: ');
      readln (arr[i]);
      end;
    kol_chet:=0;
    sum_otr:=0;
    pr_kr_5:=1;
    for i:=1 to n do
      begin
        if (arr[i] mod 2 = 0) then kol_chet:=kol_chet+1;
        if (arr[i]<0) then sum_otr:=sum_otr + arr[i];
        if (arr[i] mod 5 = 0) then pr_kr_5:=pr_kr_5*arr[i];
      end;
 
 
    write ('summa otr: ',sum_otr,' kol chetnih: ',kol_chet,
    ' proizvedenie kratnih 5: ',pr_kr_5);
    readln
  { TODO -oUser -cConsole Main : Insert code here }
end.