Turbo Pascal задача

[Инокентий09]

Найти сумму и количество отрицательных элементов целочисленного массива из 10 элементов

program primer; 
cоnst n=10; 
var a: array[1..n] of integer; 
i,s,num: integer; 
begin 
writeln('введите',n,'элементов массива'); 
for i:= 1 to n do read (a) 
s:=0; 
num:=0; 
for i:=1 to n do begin 
s:=s+a; 
if a <0 
then inc (num) 
end; 
writeln('сумма элементов массива',s); 
writeln('количество элементов массива',num); 
end.

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

[Stilet]

Ну. Поменяй < на > и беги сдаваться.