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

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.