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

var a:array[1..99] of integer;
    i,n,k:integer;
begin
     write('Введите n=');Read(n);
     for i:=1 to n do read(a[i]);
     for i:=1 to n do if a[i]<0 then inc(k);
writeln('Отрицательных чисел ',k,' Положительных ',n-k);
end.

program zada4a1;
Uses
  Crt;
Var
  n, otr, pol, k: integer;
Begin
  otr := 0;
  pol := 0;
  writeln('Введите N');
  while (N <> 0) do
    begin
      read(k);
      if k > 0 then
        pol := pol + 1
      else
        otr := otr + 1;
    end;
  wrtieln('Количество положительных чисел ', pol);
  wrtieln('Количество отрицательных чисел ', otr);
  readln;
End.

Uses CRT;
Const n=5;
var a,b:array[1..n] of integer;
    i:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(21);
          write(' a[',i,']=',a[i]);
     end;
writeln('');
     for i:=1 to n do
     if (a[i] mod 2=0) then b[i]:=i;
     for i:=1 to n do if b[i]<>0 then write(' b[',i,']=',b[i]);
end.

Uses CRT;
Const n=10;
var a,b:array[1..n] of integer;
    i,max,index:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(101);
          write(' a[',i,']=',a[i]);
     end;
writeln('');
max:=a[1];
     for i:=1 to n do
     if a[i]>max then
     begin
          max:=a[i];
          index:=i;
     end;
if index=0 then inc(index);
writeln('Max=',max,' Index=',index);
end.

var a,i,n,k:integer;
begin
     write('Ââåäèòå n=');Read(n);
     while n<>i do
     begin
     inc(i);
     read(a);
     if a<0 then inc(k);
     end;
writeln('Îòðèöàòåëüíûõ ÷èñåë ',k,' Ïîëîæèòåëüíûõ ',n-k);
end.