Подсчет средних арифметических всех отрицательных и всех положительных чисел массива

Const nmax=100;
Var i,n:integer;
    A:array[1..nmax] of integer;
    k1,k2:integer;
    sr1,sr2:real;
Begin
    Repeat
      write('N: ');
      readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',n,' вещественных чисел');
    sr1:=0;sr2:=0;
    k1:=0;k2:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(21)-10;
      write(A[i]:4);
      if A[i] > 0 then 
      Begin
        sr1:=sr1+A[i];
        k1:=k1+1;
      End;
      if A[i] < 0 then 
      Begin
        sr2:=sr2+A[i];
        k2:=k2+1;
      End;
    End;
    writeln;
    if k1 = 0 then writeln('Положительных чисел нет')
     else writeln('Среднее арифметическое положительных = ',sr1 / k1);
    if k2 = 0 then writeln('Отрицательных чисел нет')
     else writeln('Среднее арифметическое отрицательных= ',sr2 / k2);
    readln;
End.