Дан массив целых чисел размером 30 элементов. Найти количество элементов массива, значения которых больше среднего арифметического всех его элементов — Pascal(Паскаль)

uses crt;
const
n=30;
var
a:array[1..n] of integer;
i,k:integer;
s:real;
begin
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(101)-50;
writeln('Massiv');
for i:=1 to n do
 write(a[i]:5);
writeln;
s:=0;
for i:=1 to n do
 s:=s+a[i];
s:=s/n;
k:=0;
for i:=1 to n do
 if a[i]>s then inc(k);
writeln('srednyee arifm=',s:6:3);
writeln('kolvo elementov znacheniya kotorih> sredn arifm=',k);
readln
end.