Даны натуральные числа n,a1,a2….,an..Верно ли, что в последовательности больше отрицательных членов, чем положительных — Pascal(Паскаль)

var
  kp, ko, a, n, i: integer;

Begin
  writeln('Введите размерность последовательности');
  readln(n);
  kp := 0;
  ko := 0;
  for i := 1 to n do
  begin
    writeln('Введите ', i, ' элемент последовательности');

    readln(a);
    if a > 0 then
      kp := kp + 1;
    if a < 0 then
      ko := ko + 1;
  end;
  if kp = ko then
    writeln('Количество положительных и отрицательных элементов в последоватеьности равное')
  else if kp > ko then
    writeln('Количество положительных элементов в последовательности больше')
  else
    writeln('Количество отрицательных элементов в последовательности больше');

end.