Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе — Pascal(Паскаль)

var a:array [1..10000]of integer;
i: integer;
begin
i:=1;
repeat
a[i]:=random(30);
write(a[i]:4);
i:=i+1;
until a[i-1]=0;
writeln(' ',i);
end.