Составте программу позволяющую подсчитать в массиве число положительных и нулевых элементов

Program rok; var a:array [1..30] of integer;  i,s,n:integer;  begin  s:=0;  n:=0;  randomize;    for i:=1 to 30 do begin  a[i]:=random (25)-10;  write(a[i],' ');  end;   writeln;     for i:=1 to 20 do begin   if (a[i]>0) then s:=s+1;   if (a[i]=0) then n:=n+1;   end;  writeln ('Количество положительных чисел=',s);   writeln ('Количество нулей=',n);  end.