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

Считает только неправильно

Ошибка в том, что вводится лишь одно число перед циклом repeat.Вот исправленная программа:var   i, s: integer;  begin   writeln('vvedite chisla ');   repeat     readln(i);     if(i>0) then s := s + i;   until i = 0;   writeln(s);  end.