Составить схему алгоритма определения количества положительных и отрицательных элементов в массиве x[n]. ​

Все написано извиняюсь если что-то не правильно

Var

X:array[1..1000]of integer;

N,polo,otri,k:integer;

Begin

Readln(k);

For n:=1 to k do

Read(x[n]);

For n:=1 to k do

If x[n]<0 then inc(polo)

Else

Inc(otri);

Writeln(polo);

Writeln(otri);

End.

За ошибки извиняюсь