Дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. авс паскаль

Var sum, n, a, max: integer;
begin
write('введите макс число ');
read(max);
sum:=0; n:=0;
writeln('вводите числа');
while (true) do
begin
read (a);
if (a+sum) > max then break;
sum:=sum+a;
inc(n);
end;
write('кол во чисел  ', n);
end.