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

Var i,sum: integer; a: array [1..101] of integer;beginWriteln(\'Введите числа\'); 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 dowrite (a[sum], \' \');end.