Одномерный массив (pascal)

[voodavari]

Дано целое число N и последовательность N целых чисел, в которой имеются хотя бы 2 нуля. Найти сумму чисел лежащих между первым и последним нулями, если они стоят подряд вывести сумму 0

Заранее спасибо!

[DoDge_VipeR]

for i:=1 to n do
if a[i]=0 then begin k:=i;break;end;
for i:=n downto k do
if a[i]=0 then begin k1:=i;break;end;
s:=0;
for i:=k to k1 do
s:=s+a[i];

[voodavari]

Спасибо огромное!
2 дня не получалось нормально, хотя не сложно совсем