Найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран

Var a,b:shortint;

begin
  randomize;
  repeat
    a:=random(-16,16);
    b:=random(-16,16);
    write(a,' ',b, ', ')
  until (a=0) and (b=0)
end.