Составить программу для данного условия: вычисление суммы только положительных чисел из последовательно введенных чисел ( остановить обработку при 100.0) . в паскале

Var a,s:real;
begin
s:=0;
repeat
readln(a);
if a>0 then s:=s+a;
until s>=100;
writeln('s = ',s:5:1);
end.

Пример:
45
-84
12
30
-30
53
s = 140.0

Вычисление суммы только положительных чисел из последовательно введенных чисел ( остановить обработку при 100.0)