Задан массив из 20 целых чисел. Вывести на экран количество нулевых элементов, стоящих после отрицательных элементов — Pascal(Паскаль)

uses crt;
var
a:array[1..20]of integer;
i,kol:integer;
begin clrscr;
randomize;
for i:=1 to 20 do
 begin
  a[i]:=random(10)-5;
  write(a[i],'  ');
 end;
kol:=0;
for i:=2 to 20 do
if (a[i]=0) and ((a[i-1]<0) or (a[i-1]=0)) then inc(kol);
writeln;
writeln('kol-vo=',kol);
readkey;
end.