Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел

uses crt;
var
 i,b,c,d,n:integer;
 a:array [1..255] of integer;   
begin
 clrscr;
 Writeln('Введите n');
b:=0;
c:=0;
d:=0;
for i:=1 to n do
 begin
      writeln('Введите число');
      readln(a[i]);
      if (a[i]>0) then
    inc(d)
      else
    if (a[i]=0) then
        inc(c)
    else
        inc(b);
 end;
   writeln('Нулей ',с,' ',' отрицательных ',b,' положительных ',d);
readln;
end.

program mas;
uses crt;
var a: array [1..10] of integer;
    i,k: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
 k:=0;
 for i:=1 to 10 do
 if a[i]<0 then k:=k+1;
 writeln('количество отрицательных чисел=  ',k);
 k:=0;
 for i:=1 to 10 do
 if a[i]=0 then k:=k+1;
 writeln('количество чисел равных 0= ',k);
 k:=0;
 for i:=1 to 10 do
 if a[i]>0 then k:=k+1;
 writeln('количество положительных чисел= ',k);
 readln;
end.

program mas;
uses crt;
var a,n,i,kp,ko,kn: integer;
begin
 clrscr;
 write('n=');
 readln(n);
 writeln('Введите ',n,' целых чисел');
 kp:=0;ko:=0;kn:=0;
 for i:=1 to n do
 begin
  readln(a);
  if a>0 then kp:=kp+1
  else if a<0 then ko:=ko+1
  else kn:=kn+1;
 end;
 writeln('количество отрицательных чисел=  ',ko);
 writeln('количество положительных чисел равных = ',kp);
 writeln('количество нолей= ',kn);
 readln;
end.