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

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.