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

Var
sum,i:integer;
a:array[1..1024] of integer;
begin
i:=0;
sum:=0;
repeat
i:=i+1;
readln(a[i]);
sum:=sum+a[i];
until sum>100;
end.