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

[ВалерОК]

program lab_9;
uses crt;
const n=5;
var a:array [1..n] of integer;
k,p,f,s,j,x,i: integer;
begin
clrscr;
randomize;
p:=1;
for i:= 1 to n do
a[i]:=random(15)-5;
for i:=1 to n do
write (a[i]:4);
writeln;
for i:=1 to n do
if a[i]<0 then f:=f+1;
for i:= 1 to n do
if a[i]>0 then begin k:=k+1;
s:=s+a[i];
k:=k+1;
end;
writeln('Summa polozhitelnih elementov: ',s);
writeln('Kollichestvo polozhitelnih elementov:', k:2);
writeln('Kollichectvo otricatelnih elementov:',f:2);
readkey;
end.

немного исправить чтоб программа в добавок и сумму отрицательных элементов считала...плиз.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Firstchar]

program lab_9;
 uses crt;
 const n=5;
 var a:array [1..n] of integer;
 k,p,f,s,j,x,i: integer;
 begin
 clrscr;
 randomize;
 p:=0;
 s:=0;
 for i:= 1 to n do
 a[i]:=random(15)-5;
 for i:=1 to n do
 write (a[i]:4);
 writeln;
 for i:=1 to n do
 if a[i]<0 then
 begin
 p:=p+a[i];
 f:=f+1;
 end;
 for i:= 1 to n do
 if a[i]>0 then begin k:=k+1;
 s:=s+a[i];
 k:=k+1;
 end;
 writeln('Summa polozhitelnih elementov: ',s);
 writeln('Kollichestvo polozhitelnih elementov:', k:2);
 writeln('Kollichectvo otricatelnih elementov:',f:2);
 writeln('сумма отрицательных элементов: ',p);
 readkey;
 end.

применения переменной P не нашел, поэтому использовал ее. а вообще что мешало по аналогии с суммой положительных элементов сделать?

[ВалерОК]

пасиб огромное выручил(ток там терь количество положительных элементов неверно считает)))

[Hacker19_90]

 if a[i]>0 then begin k:=k+1;
 s:=s+a[i];
 k:=k+1;
 end;

Два раза происходит увелечение! Уберите чё нить