30 сотрудников зп от 300 до 800 определить сред зарплатe всех сотрудников определить сколько человек получают значение ниже средней зп pascalabc

//PascalABC.Net 3.2
begin
var a:=arrRandom (30, 300, 800);
writeln ('Рандомные зарплаты:'); a.Println;
writeln ('Ср. зарплата: ', a.Average);
var count:=0;
for var i:=0 to 29 do if a[i]<a.Average then count+=1;
write ('Кол-во сотрудников с ЗП меньшей средней ', count); 
end.