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

program zz1;

var a, b, s, k, n, i:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество произвольных чисел

read (n);

write (' введите заданное число '); / / вводим с клавиатуры заданное число

read (b);

for i:=1 to n do

begin

read (a); / / вводим последовательность произвольных чисел

s:=s + a; / / находим сумму произвольных чисел

if s < b then k:=k + 1; / / проверяем сумму и считаем

end;

write (' количество найденных чисел = ', k); / / выводим ответ

end.