Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива –20. Заполнение массива осуществить случайными числами от 150 до 300 — Pascal(Паскаль)

const
n=20;
var
i,s:integer;
k,kk:real;
a:array[1..n] of integer;
begin
k:=0;
for i:=1 to n do
  begin
      a[i]:=random(151)+150;
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

k:=0;
for i:=1 to 20 do 
    begin
        k:=k+a[i];
    end;
kk:=k/20;
s:=0;
for i:=1 to 20 do
    if a[i]<kk then s:=s+a[i];

writeln(s);

end.