ПОМОГИТЕ В PASCAL ПОЖАЛУЙСТА ток Г ,Д

var i, n, s, positive, negative: integer;beginreadln(n);for i := 1 to n do beginreadln(s);if s < 0 thennegative := negative + 1;elsepositive := positive+1;end;writeln(positive);writeln(negative);end.