Для массива а1,а2,а3.а15 получить среднеарифметическое его отрицательных элементов

Const n=15;
Var A:array[1..n] of integer;
    i,k:byte;
    sr:real;
Begin
    For i:=1 to n do
    Begin
      A[i]:=-15+random(31);
      write(A[i]:4);
      if A[i]<0 then 
      Begin
        inc(k);
        sr:=sr+A[i];
      End;
    End;
    writeln;
    if k>0 then writeln('Среднеарифметическое отрицательных элементов = ',sr/k:0:2)
     else writeln('Нету отрицательных элементов');
    readln;
End.

Const n=15;
Var A:array[1..n] of real;
    i,k:byte;
    sr:real;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    For i:=1 to n do
    Begin
      write(A[i]:8:2);
      if A[i]<0 then 
      Begin
        inc(k);
        sr:=sr+A[i];
      End;
    End;
    writeln;
    if k>0 then writeln('Среднеарифметическое отрицательных элементов = ',sr/k:0:2)
     else writeln('Нету отрицательных элементов');
    readln;
End.