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

uses crt;
var
a:array[1..100]of integer;
kol,i,sum,n:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
kol:=0;
for i:=1 to n do
if a[i]<0 then inc(kol);
writeln('kol-vo=',kol);
sum:=0;
for i:=1 to n do
if a[i]>0 then sum:=sum+a[i];
writeln('summa=',sum);
readkey;
end.

Uses crt;
Const n=20;
var c:array[1..n] of integer;
i,sum,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
c[i]:=random(20)-10;
write(a[i]:4);
end;
writeln;
for i:=1 to n do
If c[i]<0 then begin inc(k); end;
writeln('kol-vo=',k);
writeln;
for i:=1 to n do 
If c[i]>0 then begin sum:=sum+c[i];
end;
writeln('Summa=',sum);
readln;
end.

program Test;
 
const
     n = 10;
var
   i: integer;
   PosSum: integer = 0;
   NegCount: integer = 0;
   arr: array[1..n] of integer = (2, 56, 4, -1, 56, -234, 4, -1, -3, 3);
begin
     for i:= 1 to n do
         if arr[i] >= 0 then Inc(PosSum, arr[i])
         else Inc(NegCount);
 
     WriteLn('Количество отрицательных: ', NegCount);
     WriteLn('Сумма положительных: ', PosSum);
     ReadLn();
end.