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

Var a:array[1..100] of integer;
 n, i, k,sum: integer;
 begin
  read(n);
  k:=0;
  sum:=0;
   for i:=1 to n do read (a[i]);
   for i:=1 to n do
     begin
       if (a[i]<0) then k:=k+1 else
       sum:=sum+a[i];
end;
end.

вроде так :)