найти номер первого нулевого элемента массива x1, x2, ....x20 и сумму элементов пришедствующих  ему

for i:=1 to 20 do

var X: array [1..20] of integer;     i, sum : integer;BEGINfor i:=1 to 25 doread(X[i]);sum:=0;i:=1;while X[i]<>0 do beginsum:=sum+X[i];i:=i+1;end;writeln('Первый нулевой элемент ', i);writeln('Сумма элементов до нулевого  ', sum);END.