Написать программу ввода массива до тех пор,пока сумма введенных частей не

Var i,sum: integer;
a: array [1..101] of integer;
begin
Writeln(Введите числа);
sum:=0;
i:=0;
while (sumlt;100) do
begin
i:=i+1;
readln(a[i]);
sum:=sum+a[i];
if sumlt;=100 then
writeln (Сумма введённых частей: , sum)
else
writeln (Сумма превосходит 100.);
end;
For sum:=1 to i do
write (a[sum], );
end.