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

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