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

vara:array [1..20] of integer;i,s:integer;k:real;beginRandomize;k:=0;for i:=1 to 20 do begin   a[i]:=random(150)+150;  k:=k+a[i];  write(a[i],' ');end;k:=k/20;s:=0;for i:=1 to 20 do if a[i]<k then s:=s+a[i];writeln;writeln('Среднее арифм. = ',k);writeln('Сумма элементов массива меньших ',k,' = ',s);end.