В массив произвольного размера внесены суммы месячного заработка в порядке возрастания - Pascal

Формулировка задачи:

Ребят, не могли бы помочь? Есть задача:В массив произвольного размера внесены суммы месячного заработка в порядке возрастания табельного номера. Найти количество работающих, чья зарплата ниже средней.

var i,k,sum: integer;
sr:real;
a:array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random (10);
write (a[i]:3);
end;
writeln;
k:=1;
sum:=0;
for i:= 1 to 10 do
sum := sum + a[i];
sr := sum / 10;
for i := 1 to 10 do
if a[i]<sr then
k:=k+1;
writeln ('Номер работника чья зарплата ниже средней');
writeln(k);
end.

(программа полностью работает,но она не доделана получается, либо может в чем-то ошибка ). В общем, ребят не могли бы подправить, сам чет не допру никак, что нужно изменить. А мне срочно эта задача нужна!!! Заранее спасибо огромное!

Решение задачи: «В массив произвольного размера внесены суммы месячного заработка в порядке возрастания»

Листинг программы

var i,k: integer;
    sr:real;
    a:array [1..10] of integer;
begin
randomize;
sr:=0;
for i:=1 to 10 do
 begin
  a[i]:=1+random (10);
  sr:=sr+a[i];
  write (a[i]:3);
 end;
writeln;
sr:=sr/10;
writeln('Среднее=',sr:0:2);
k:=0;
for i:=1 to 10 do
if a[i]<sr then k:=k+1;
writeln ('Количество работников, чья зарплата ниже средней=',k);
end.

Объяснение кода листинга программы

Объявление переменных:
- i, k: целочисленные переменные для использования в циклах
- sr: вещественная переменная для хранения среднего значения зарплаты
- a: массив из 10 целочисленных элементов
Генерация случайных значений и расчет среднего:
- Инициализация переменной sr значением 0
- Цикл от 1 до 10:
  - Заполнение ячеек массива a случайными целыми числами от 1 до 10
  - Прибавление значения ячейки массива к переменной sr
  - Вывод значения массива a[i] с выравниванием в 3 символа
- Расчет среднего значения (sr) путем деления суммы всех элементов на их количество
Подсчет числа работников с зарплатой ниже средней:
- Инициализация переменной k значением 0
- Цикл от 1 до 10:
  - Если значение элемента массива a[i] меньше, чем среднее значение sr, то увеличить k на 1
- Вывод количества работников, чья зарплата ниже средней значения Завершение программы.