Дано массив A [1..n]. Сложить программу подсчета средних арифметических всех отрицательных и всех положительных его чисел

var     a: array[1..999] of integer;    n, sp, so, kp, ko: integer;    begin    read(n);    for var i := 1 to n do begin        a[i] := random(-9, 9);        write(a[i], ' ');        if a[i] > 0 then begin            sp += a[i];            kp += 1;        end;        if a[i] < 0 then begin            so += a[i];            ko += 1;        end;    end;    writeln;    writeln('Среднее арифметическое положительных чисел = ', sp/kp);    writeln('Среднее арифметическое отрицательных чисел = ', so/ko);end.