Вычислить сумму положительных элементов массива после первого нуля - Pascal ABC

Формулировка задачи:

Вычислить сумму положительных элементов массива А после первого нуля (при наличии нуля).

Решение задачи: «Вычислить сумму положительных элементов массива после первого нуля»

Листинг программы

i:=1;
k:=0;
while(i<=n)and(k=0) do
if a[i]=0 then k:=i else i:=i+1;
if k=0 then write('В массиве нет нуля')
else if k=n then write('Сумма после первого нуля=0')
else
 begin
  s:=0;
  for i:=k+1 to n do
  s:=s+a[i];
  write('Сумма после первого нуля=',s);
 end;

Объяснение кода листинга программы

Переменная i устанавливается равной 1.
Переменная k устанавливается равной 0.
Запускается цикл while, который выполняется до тех пор, пока i не превысит n и k не станет равным 0.
Если a[i] равно 0, то k устанавливается равным i.
Если k равно 0, то выводится сообщение В массиве нет нуля.
Если k равно n, то выводится сообщение Сумма после первого нуля=0.
Иначе, начинается вложенный цикл for, который проходит по элементам массива, начиная с индекса k+1 и до n.
В переменной s накапливается сумма элементов массива.
После завершения вложенного цикла, выводится сообщение Сумма после первого нуля=, за которым следует значение переменной s.