Найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу

{ Дан целочисленный массив из 40 элементов, все элементы которого - целые
числа в интервале от -500 до 500. Напишите, пожалуйста, программу, которая
находит среднее арифметическое всех положительных элементов массива,
которые кратны первому элементу (делятся нацело на первый элемент).
Гарантируется, что первый элемент массива положительный.}
 
const
  n=40;
var
  a:array[1..n] of integer;
  k,i,sum:integer;
  sr:real;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(1000)-500;
      write(a[i]:5);
    end;
  {Гарантируется, что первый элемент массива положительный.}
//  a[1]:=10; // отладка
  if a[1]<0 then
    a[1]:=abs(a[1]);
  k:=0;
  sum:=0;
  for i:=1 to n do
    if (a[i]>0) and (a[i] mod a[1]=0) then
      begin
        sum:=sum+a[i];
        k:=k+1;
      end;
  if k=0 then
    begin
      writeln;
      writeln('В массиве нет таких чисел! Программа завершена.');
      exit;
    end;
  writeln;
  sr:=sum/k;
  writeln('Среднее среди чисел: ',sr:8:2,' ',k);
  readln;
end.