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

Задача на языке Паскаль, помогите пожалуйста

const  n=15;var  a:array[1..n] of integer;  i,k,s:integer;begin  Randomize;  Write('Массив: ');  k:=0;  for i:=1 to n do begin    a[i]:=Random(21)-10;    Write(a[i],' ');    if a[i]=0 then k:=i;    end;  Writeln;  s:=0;  for i:=1 to k-1 do s:=s+a[i];  Writeln('сумма элементов перед последним нулевым равна ',s)end.ПримерМассив: -8 10 6 9 1 -3 2 -5 -6 0 -8 -2 -4 2 -4 сумма элементов перед последним нулевым равна 6