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

const    handsfree = false;var    a: array[1..100] of real;    i, n: integer;    sum_pos, sum_neg: real;    k_pos, k_neg: integer;begin    {ввод массива}    if handsfree then        n := random(20) + 5    else begin        write('n = ');        readln(n);    end;        writeln('Данные массива:');    for i := 1 to n do    begin        if handsfree then begin            a[i] := random(100) - 50;            write(a[i], ' ');        end        else readln(a[i]);    end;    writeln();        {подсчет}    sum_pos := 0;    k_pos := 0;    sum_neg := 0;    k_neg := 0;    for i := 1 to n do    begin        if a[i] > 0 then         begin            sum_pos := sum_pos + a[i];            k_pos := k_pos + 1;        end;                if a[i] < 0 then        begin            sum_neg := sum_neg + a[i];            k_neg := k_neg + 1;        end;    end;    writeln('average (positives) = ', sum_pos / k_pos);    writeln('average (negatives) = ', sum_neg / k_neg);end.