Последовательно вводятся n целых чисел. определить, каких среди них чисел больше: положительных или отрицательных. нужно построить блок-схему, заранее

Const
    N = 10; //твое число N
var
    i,c,nc,X: integer;
begin
for i:=1 to N do
begin
    READLN(X);
    if(X >= 0) then inc(c)
    else inc(nc);
end;
  
if (c > nc) then Writeln('четных больше')
else
begin
    if(c < nc) then Writeln('нечетных больше')
    else if(c = nc) then writeln('кол-во четных и нечетных чисел равно');
end;
end.