Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива - Turbo Pascal

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

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

program ms;
var m:array[1..20] of integer;
    sum:integer;
    sr:real;
    i:integer;
begin
randomize;
writeln('Найти сумму всех элементов массива которые меньше среднего арифметического');
writeln('Выполнил: студент гр. .... ...... ');
  sum:=0;
  for i:=1 to 20 do
   begin
    m[i]:=random(451)-151;
   sum:=sum+m[i];
    writeln;
    write(m[i]:5);
   end;
sr:=sum/20;
sum:=0;
   for i:=1 to 20 do
    if (m[i]<sr) then sum:=sum+m[i];
 writeln('Сумма: ',sum:8);
end.

Решение задачи: «Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива»

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

m[i]:=-151+random(451);

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

Создаётся массив m размером 20.
Для каждого i от 0 до 19 вычисляется значение m[i] как -151 + random(451).
Вычисляется среднее арифметическое элементов массива m.
Проверяется, что все элементы массива m меньше среднего арифметического.
Если это условие выполняется, то находится сумма всех элементов массива m, которая сохраняется в переменной sum.
Выводится значение переменной sum.