найти номер первого нулевого элемента массива a1,a2...a25 и произведение элементов расположенных до него, а среди элементов, расположенных правее первого  нулевого , найти максимальный элемент

var A: array [1..25] of integer;     i, p, max : integer;BEGINfor i:=1 to 25 doread(A[i]);p:=1;i:=1;while A[i]<>0 do beginp:=p*A[i];i:=i+1;end;writeln('Первый нулевой элемент ', i);writeln('Произведение элементов до нулевого  ', p);max:=A[i+1]; for i:=i+1 to 25 doif A[i]>max then max:=A[i];writeln('Максимальный элемент после нулевого ', max);END.