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

Var a:array[1 ... 1000] of integer;

s, n:integer;

p:real;

k, i:byte;

begin

k:=0;

s:=0;

randomize;

writeln ('кол-во элементов массива') ;

readln (n) ;

for i:=1 to n do

begin

a[i]:=random (100) - 46;

write ('a (', i,') = ', a[i],' ') ;

end;

for i:=1 to n do

begin

if a[i]< 0 then s:=s+a[i];

if a[i]>0 then k:=k+a[i];

end;

writeln (' ') ; writeln ('Сумма положительных: ', k) ;

writeln ('Сумма отрицательных: ', s) ;

end.