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

Const 
  n = 14;
Var
  a : Array [1..n] of Integer;
  i, sPoz, sNeg, sOdd, sEven, kPoz, kNeg, kOdd, kEven : Integer;
Begin
  Randomize;
  sPoz := 0;
  sNeg := 0;
  sEven := 0;
  sOdd := 0;
  kPoz := 0;
  kNeg := 0;
  kEven := 0;
  kOdd := 0;
  WriteLn('Массив:');
  For i := 1 To n Do  
  Begin    
    a[i] := random(21) - 8;    
    Write(a[i] : 4);
    If a[i] > 0 Then
    Begin
      sPoz := sPoz + a[i];
      inc(kPoz)
    End;
    If a[i] < 0 Then 
    Begin
      sNeg := sNeg + a[i];
      inc(kNeg)
    End;
    If a[i] mod 2 = 0 Then
    Begin
      sEven := sEven + a[i];
      inc(kEven)
    End
    Else
    Begin
      sOdd := sOdd + a[i];
      inc(kOdd)
    End
  End;
  Writeln;
  If kPoz <> 0 Then  
    WriteLn('Среднее арифметическое положительных = ', (sPoz / kPoz):0:4)
  Else WriteLn('Нет положительных чисел');
  If kNeg <> 0 Then
    WriteLn('Среднее арифметическое отрицательных = ', (sNeg / kNeg):0:4)
  Else WriteLn('Нет отрицательных чисел');
  If kEven <> 0 Then
    WriteLn('Среднее арифметическое четных = ', (sEven / kEven):0:4)
  Else WriteLn('Нет четных чисел');
  If kOdd <> 0 Then
    WriteLn('Среднее арифметическое нечетных = ', (sOdd / kOdd):0:4)
  Else WriteLn('Нет нечетных чисел');  
  ReadLn
End.