Write an array input program until the sum of the input elements exceeds 100. In Pascal

Var i, sum: integer;
a: array [1..101] of integer;
begin
Writeln (‘Enter numbers’);
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 of entered items:’, sum)
else
writeln (‘The amount exceeds 100.’);
end;
For sum: = 1 to i do
write (a [sum], ”);
end.