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

Program Summer1;
  var
      sum, a: real;    {sum - для накопления суммы, a - для очередного числа}
begin
  sum:=0; {Обнуляем сумму}
  a:=0;
  repeat
    sum:=sum+a; {Добавляем введенное число к сумме}
    write('Введите число'); {Ввод очередного числа}
    readln(a)
  until a < 0 {Проверяем введенное число на отрицательность}
{При выходе из цикла выполняется этот оператор:}
  writeln ('',sum:5:3);
  readln
end.