Создать массив а из 10 целых чисел, принадлежащих промежутка [0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значение которых превышает среднему арифметическому значению

var
a : array[0..9] of integer;
i, k : integer;
s : real;
Begin
s := 0;
k := 0;
randomize;
for i := 0 to 9 do begin
a[i] := random(20);
Write(a[i], ' ');
s := s + a[i];
end;
s := s / 10;
For i := 0 to 9 do
if a[i] > s then
inc(k);
Writeln();
Writeln(k);
End.