Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первыми двумя нулями(если первые нули идут подряд, то вывести ноль).Решить задачу с помощью цикла с постусловием(т.е. repeat) — Pascal(Паскаль)

uses crt;
var n,i,a,s,k:integer;
begin
clrscr;
write('Сколько чисел ввести n=');
readln(n);
writeln('Введите ',n,' целых чисел, из них не менее двух нолей.');
k:=0;
s:=0;
i:=0;
repeat
readln(a);
i:=i+1;
if a=0 then k:=k+1;
if k=1 then s:=s+a;
until (i=n)and(k>=2);
write('S=',s);
readln
end.