Написать программу ввода массива до тех пор, пока сумма введенных элементов не превысит числа 100. На Паскале

Var i, sum: integer;

a: array [1 ... 101] of integer;

begin

Writeln ('Введите числа');

sum:=0;

i:=0;

while (sum<100) do

begin

i:=i+1;

readln (a[i]);

sum:=sum+a[i];

if sum<=100 then

writeln ('Сумма введённых элементов: ', sum)

else

writeln ('Сумма превышает 100.');

end;

For sum:=1 to i do

write (a[sum], ' ');

end.