Дан одномерный массив с1, с2, с3 .. с10. каких элементов в данном массиве больше: положительных или , , полное решение, завтра сдавать, а мне 20 аналогичных заранее

const n = 10;
var
  a: array[1..n] of integer;
  i, count: integer;
begin
  for i := 1 to n do begin
    a[i] := random(5) - 4;
    write(a[i], ' ');
    if(a[i] < 0) then inc(count);
  end;
  if(count = 5) then writeln('Положительных и отрицательных элементов поровну.')
    else if(count < 5) then writeln('Положительных эл. больше')
      else writeln('Отрицательных эл. больше');
end.