найти сумму случайных чисел до тех пор пока не выпадет 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.