Вывести на экран сумму, произведение и номера положительных элементов после последнего нулевого элемента — Pascal(Паскаль)

Uses
 CRT;
var
a:array[1..20] of integer;
n,i,inul,kol:integer;
sum,pr:real;
begin
ClrScr;
readln(n);
randomize;
inul:=0;
for i:=1 to n do
begin
a[i]:=random(10)-2;
write(a[i]:3);
if a[i]=0 then
inul:=i;
end;
writeln;
if (inul<>0) and (inul<>n) then
begin
pr:=1;
sum:=0;
kol:=0;
for i:=inul+1 to n do
if a[i]>0 then
begin
pr:=pr*a[i];
sum:=sum+a[i];
inc(kol);
write(i:3);
end;
writeln;
writeln('Pr:=',pr,'; Sum:=',sum,'; Kol:=',kol);
end
else writeln('Íåò íóëåé; Ëèáî íîëü ïîñëåäíèé');
readkey
end.