Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до 13

const
  n = 14;
 
var
  a: array[1..n] of integer;
  kp, ko, kc, kn, i, sp, so, sc, sn: integer;
 
begin
  randomize;
  sp := 0;
  so := 0;
  sc := 0;
  sn := 0;
  kp := 0;
  ko := 0;
  kc := 0;
  kn := 0;
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(20) - 8;
    write(a[i]:5);
    if odd(a[i]) then
    begin
      sn := sn + a[i];
      inc(kn);
    end
    else
    begin
      sc := sc + a[i];
      inc(kc);
    end;
    if a[i] > 0 then
    begin
      sp := sp + a[i];
      inc(kp);
    end
    else
    if a[i] < 0 then
    begin
      so := so + a[i];
      inc(ko);
    end;
  end;
  writeln;
  if kn <> 0 then
    writeln('Среднее арифметическое нечетных элементов: ', sn / kn)
  else
    writeln('Нет нечетных элементов');
  if kc <> 0 then
    writeln('Среднее арифметическое четных элементов: ', sc / kc)
  else
    writeln('Нет четных элементов');    
  if kp <> 0 then
    writeln('Среднее арифметическое положительных элементов: ', sp / kp)
  else
    writeln('Нет положительных элементов');
  if ko <> 0 then
    writeln('Среднее арифметическое отрицательных элементов: ', so / ko)
  else
    writeln('Нет отрицательных элементов');
end.