Задание: вычислить суммы положительных чисел, введённых с клавиатуры. Конец программы 0. В чем ошибка программа не работает

var
  i, s: integer;
 begin
  writeln('vvedite chisla ');
  repeat
    readln(i);
    if(i>0) then s := s + i;
  until i = 0;
  writeln(s);  
end.