Найти сумму элементов массива для первого массива а 20 до первого 0

Program B;

type

t=array[1..20] of integer;

var

a:t;

N,i:byte;

S:integer;

begin

readln(N); //кол-во элементов в массиве

S:=0;

for i:=1 to N do

 begin

   read(a[i]);

   S:=S+a[i];

end;

write(S);

end.