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

uses crt;
const n=10;
type mas=array [1..n] of integer;
var a:mas;
i,k,d:integer;
s:real;
begin
randomize;
clrscr;
d:=0;
k:=0;
writeln ('Введите элементы массива:');
for i:=1 to n do
begin
readln (a[i]);
d:=d+a[i];
end;
s:=d/n;
writeln;
writeln ('Массив:');
for i:=1 to n do
begin
write (a[i]:3);
if a[i]>s then k:=k+1;
end;
writeln;
writeln ('Количество элементов: ',k);
repeat until keypressed;
end.