Помогите пожалуйста!!!
Даны N чисел. Найдите кол-во положительных и кол-во отрицательных. Сравнить результаты

var i, n, o, p, x:Integer;beginwrite("N: ");readln(n);p:=0;o:=0;for i:=1 to n do begin  read(x);  if x>0   inc(p);  if x<0   inc(o); end;write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));end.