Вводя числа с клавиатуры без ограничения их количества(конец ввода число 0),найдите сумму положительны хи произведение отрицательных чисел.написать в программе e6 и e7 в abc паскале.это оператор варианта.нужно решить

var
  a, s_p, s_o: integer;
begin

  s_o := 1;

  s_p := 0;
  repeat
    readln(a);
    if(a < 0) then s_o := s_o * a else
      s_p := s_p + a;
  until(a = 0);
  writeln('Произведение отр.: ', s_o);
  writeln('Сумма пол.: ', s_p);
end.