В данном массиве определить количество положительных, отрицательных и нулевых элементов

uses crt;
const n = 30;
var a:array[1..n] of integer;
    i,j,t: integer;
    lz,z,hz: word;
begin
  clrscr;
  randomize;
  write('исходный масив: ');
  for i := 1 to n do begin
    a[i] := random(100) - 50;
    write(a[i],' ');
  end;
  writeln;
  for i := 1 to n do begin
    if a[i] > 0 then hz := hz + 1
    else if a[i] < 0 then lz := lz + 1
    else z := z + 1;
 
    for j := 1 to n - 1 do
      if a[j] > a[j+1] then begin
        t := a[j];
        a[j] := a[j+1];
        a[j+1] := t;
      end;
  end;
 
  writeln('елементов меньше ноля: ',lz);
  writeln('больше ноля: ',hz);
  writeln('нулей: ',z);
  write('упорядоченный масив: ');
  for i := 2 to n do
    write(a[i],' ');
  readln;
end.

const n=30;
type mas=array[1..n] of integer;
var a:mas;
i,j,k,m:integer;
Procedure init(var a:mas);
var i:integer;
begin
for i:=1 to n do
a[i]:=random(100)-50;
end;
Procedure Print(a:mas);
var i:integer;
begin
for i:=1 to n do
write(a[i]:4);
end;
begin
k:=0; m:=0; j:=0;
randomize;
init(a);
print(a); writeln;
for i:=1 to n do 
if a[i]>0 then begin k:=k+1; write(a[i]:4); end;
for i:=1 to n do 
if a[i]<0 then begin j:=j+1; write(a[i]:4);end;
for i:=1 to n do
if a[i]=0 then begin m:=m+1; write(a[i]:4); end; writeln;
writeln('положительных: ',k,' отрицательных: ',j,' нулевых: ',m); 
end.

var
  a:array[0..30] of integer;
  PolEl,OtrEl,NulEl,i:integer;
begin
  PolEl:=0;
  OtrEl:=0;
  NulEl:=0;
  randomize;
  for i:=0 to 30 do
    begin
      a[i]:=-10+random(40);
      if a[i]>0 then
        inc(PolEl,1);
      if a[i]<0 then
        inc(OtrEl,1);
      if a[i]=0 then
        inc(NulEl,1);
    end;
  writeln('Kol-vo pologitelnih elementov = ',PolEl);
  writeln('Kol-vo otricatelnih elementov = ',OtrEl);
  writeln('Kol-vo nulevih elementov = ',NulEl);
  readln;
end.

uses crt;
var i,j,k,l: integer;
    a: array [1..30] of integer;
begin
 clrscr;
 randomize;
 for i:=1 to 30 do
  begin
   a[i]:=random(70)-30;
   if a[i]>0 then
    inc(j);
   if a[i]=0 then
    inc(k); 
   if a[i]<0 then
    inc(l);
   write(a[i]:4); 
  end;
 writeln;
 writeln('Положительных: ',j);
 writeln('Отрицательных: ',l);
 writeln('Нулевых: ',k);
 readln;
end.