Подсчитать сумму вводимых чисел до первого отрицательного числа (использовать цикл с

НА паскале

 program summa;
 var a:= 0;
 var b:= 0;
 begin
  writeln('Введите число');
   readln(a);
   if agt;0 then  
    repeat повторяй
      a:= a+b;
   writeln('Введите еще число');
   readln(b);  
   until (blt;0); до тех пор, пока условие не будет истинным
     writeln('Было найдено отрицательное число');
        if agt;0 then 
     writeln('Приобретенная сумма: ',a)
     else writeln('Отрицательное число было первым');
     readln;
 end.
Программка на выходе извещает:
Введите число
3
Введите еще число
45
Введите еще число
9
Введите еще число
-8
Было обнаружено отрицательное число
Приобретенная сумма: 57