Дан массивR(15),. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов

Const    K = 15; Var    R:array[1..K] of integer;    i,P,O,N:integer; Begin Randomize; P:=0; N:=0; O:=0; For i:= 1 to K do     Begin     R[i]:=2*random(K)-K;     Write(R[i],' ');     if R[i] > 0 then P:=P+1     else if R[i] = 0 then N:=N+1          else O:=O+1;     End; WriteLn; WriteLn('P = ',P); WriteLn('N = ',N); WriteLn('O = ',O); End.