Дан массив вещественных чисел. Найти среднее арифметическое положительных и отрицательных чисел

program sred;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR
a:array of real;
i,n,p,o:Integer;
s1,s2:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
// ввод N
repeat
  write('N=');
  readln(n);
  until n > 0;
setlength(a,n); // установка разм.масс.
s1:=0; //сред-ариф полож
s2:=0; //сред-ариф отриц
p:=0;  //кол-во полож
o:=0;  //кол-во отриц
randomize;
for i:= 0 to n-1 do BEGIN
    a[i] := 10*random-10*random;
    if a[i] > 0 then begin s1 := s1 + a[i]; p := p + 1; end;
    if a[i] < 0 then begin s2 := s2 + a[i]; o := o + 1; end;
    writeln('a[',i+1,']=',a[i]:8:2);
    end;
if p=0 then writeln('Net polojitelnyh') else
writeln('sred-arif poloj = ',s1/p:8:2);
if o=0 then writeln('Net otritsatelnyh') else
writeln('sred-arif otrits = ',s2/o:8:2);
readln;
 
end.